Ich will ein Makro - ich rufe es aus der "Zieldatei" auf - ausführen, welches Daten aus einigen gleich strukturierten Dateien (Quelldateien) lädt, dort jeweils immer aus "Tabelle1". Vor dem Kopieren wird die jeweilige Quelldatei im Blatt Tabelle1 noch so bearbeitet, dass die Daten besser zur Zieldatei passen. Dann werden die Daten in die Zieldatei kopiert und die nächste Datei wird geladen. Die Liste der abzuarbeitenden 6 Dateien steht in der Zieldatei im Blatt "Input". Da ich Probleme hatte, das jeweils richtige Arbeitsblatt anzusprechen, musste ich eine Zurdnung treffen und mit "With" markieren, in welchem Blatt jetzt gearbeitet werden soll. Dabei muss ich einen Fehler haben: Sie dazu mein Problem markiert mit ?????? unten.
Sub Test()
Dim ZielMappe As Workbook
Dim ZielBlatt As Worksheet
Dim QuellMappe As Workbook
Dim QuellBlatt As Worksheet
Dim Dateiname As String
Dim Path As String
'ThisWorkbook = die Arbeitsmappe aus der das Makro aufgerufen wird
Set ZielMappe = ThisWorkbook
Set ZielBlatt = ZielMappe.Worksheets("Basisdaten")
' Löschen von Zellen A4 bis AF800 im Tabellenblatt "Basisdaten"
Sheets("Basisdaten").Range("A4:AF800").ClearContents
' Zaehler initialisieren
Dim Zaehler As Integer
Zaehler = 2
' Schleife für 6 Durchläufe
Do While Zaehler 7
' Dateinamen aus Zelle A(Zaehler) im Tabellenblatt "Input" auslesen
Dateiname = Sheets("Input").Range("A" & Zaehler).Value
Path = "C:\Users\XXX\"
' Datei im Verzeichnis öffnen
Workbooks.Open Filename:=Path & Dateiname
Jetzt wollte ich die QellMappe besetzen und das läuft nicht richtig:
Set QuellMappe = ????? wie genau fukussiere ich diese gerade geöffnete Datei? ?????
Set QuellBlatt = QuellMappe.Worksheets("Tabelle1")
Wer kann mir helfen?
LG, Matthias