Hallo!
Ich habe folgende Problematik die ich mittels eines Makros lösen möchte:
In einem Ordner Namens Statusmatrix befindet sich meine Zieldatei (eben die Statusmatrix) und auch noch ein Ordner "Statuslisten" der wiederum gleichnamige Excel-Dateien enthält. Nun soll das Makro aus jeder dieser Dateien zwei bis drei Spalten eines Sheets 1zu1 in die Zieldatei kopieren. Bis hier hin komme ich auch mit dem Code ganz gut zurecht, jedoch gibt es eben mehrere Dateien, d.h. wenn der erste Bereich in bspw. Spalten E-F kopiert wurde, soll das Makro die Daten aus der nächsten Datei eben in G-H kopieren usw.
Was ich bereits habe ist:
Sub ErgebnisseKopieren()
Dim pfad As String
datei As String
blatt As String
bereich As Range
pfad = "...\Statuslists+Matrix\Statuslists"
datei = Dir(CStr(sPfad & "*.xl*"))
blatt = "Status Telematic Functions"
Set bereich = Range("E1:E1029,H1:H1029")
Do While datei <> ""
Set oSourceBook = Workbooks.Open(pfad & datei, False, True)
Worksheet("Status Telematic Functions").Range("bereich").Copy Destination:=oTargetSheet("Statusmatrix Functions").Range("bereich")
oSourceBook.Close False
sDatei = Dir() 'Ab hier weiß ich eben auch nicht weiter.
bereich = bereich + 1
Loop
Set oTargetSheet = Nothing
Set oSourceBook = Nothing
End Sub
Vielen Dank im Voraus. |