Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
22.09.2017 13:16:55 |
Hans |
|
|
|
22.09.2017 14:50:06 |
Gast70117 |
|
|
|
22.09.2017 15:00:52 |
Gast70117 |
|
|
|
25.09.2017 07:48:38 |
Hans |
|
|
|
25.09.2017 07:50:07 |
Hans |
|
|
SVerweis Makro Verscheiden Tabellenblätter |
26.09.2017 12:33:53 |
MP |
|
|
Von:
MP |
Datum:
26.09.2017 12:33:53 |
Views:
762 |
Rating:
|
Antwort:
|
Thema:
SVerweis Makro Verscheiden Tabellenblätter |
Hallo Hans,
hier werden sich die Meinungen je Erfahrung / Gewohnheit spalten.
Ich persönlich würde dir sowieso empfehlen ein Menü zu basteln,
dass du mit einem Shortcut (ich liebe Strg+Shift+M) öffnen kannst und die Quelldatei jedes Mal neu wählst -
Danach auf einen Startknopf und die Berechnung dann einfach ausführen lassen. Das Ergebnis vielleicht immer automatisch in eine neue Excel Datei speichern?
Konkret würde ich den Pfad als String bzw. globale String Variable deklarieren und sie von einem "PathPicker" abhängig machen. Alternativ könntest du einen bestimmten Bereich eines Tabellenblatts benutzen.
Wenn deine Quelldateien eh bereits so schöne Dateinamen haben, könntest du sie überhaupt automatisieren...
Zum Beispiel:
Dim strQuelldateiPfad1 As String
Dim strHeutigesDatum As String
Dim strQuelldateiPfad2 As String
Dim Zieldatei as Workbook
Dim Quelldatei as Workbook
'Wir definieren sofort deine jetzige Datei als Zieldatei
set Zieldatei = ActiveWorkbook
strQuelldateiPfad1 = Zieldatei .Sheets("Tabelle1").Range("A2") 'oder den Inhalt "C:\Benutzer\DerOrdnerInDemIchImmerMitDieAktuelleDateiHabe\AIF_" fix im VBA hinterlegen. --> Wird eher vermieden...
strHeutigesDatum = Zieldatei .Sheets("Tabelle1").Range("A3")'oder aus dem Menü mit einem zB Datepicker
'Jetzt hat strHeutigesDatum beuspielsweise den von dir manuell eingefügten Wert 22.09.2017
strQuelldateiPfad2 = strQuelldateiPfad1 & "" & "strHeutigesDatum '= der komplette Pfad mit dem (zu erwartendem) Dateinamen.
'Wir öffnen die Quelldatei:
Workbooks.Open Filename:=strQuelldateiPfad2, ReadOnly:=True
'und definieren sie gleich als Quelldatei Somit können wir zwischen den beiden hin und her wechseln :)
Set Quelldatei = ActiveWorkbook
'... und ab hier beginnt dann dein Code... Du musst nur bei den Formeln überall den fix definierte Datei löschen und unsere String-Variablen von oben eingeben... :)
Da ich mit den Formula-Ansicht und dem LOOKUP keine Erfahrung habe, überlasse ich das dir.
Ich bin mir sicher, dass du das hinbekommst.
Entschuldige falls mein Code nicht reibungslos funktionieren sollte. Ich habe gerade kein Excel zur Hand und habe ihn auch nicht ausgeführt.
Viel Erfolg!
lg MP |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
22.09.2017 13:16:55 |
Hans |
|
|
|
22.09.2017 14:50:06 |
Gast70117 |
|
|
|
22.09.2017 15:00:52 |
Gast70117 |
|
|
|
25.09.2017 07:48:38 |
Hans |
|
|
|
25.09.2017 07:50:07 |
Hans |
|
|
SVerweis Makro Verscheiden Tabellenblätter |
26.09.2017 12:33:53 |
MP |
|
|