|
Hallo,
vorweg: Mein Name ist Tobias und ich habe kaum VBA Erfahrung.
Ich habe folgende Aufgabenstellung:
Es gibt 2 Arbeitsmappen. In einer Mappe stehen Namen und Arbeitsstunden (M1), in der anderen Namen und die Summe der Stunden (M2). Die einzelnen Stunden zu den zugehörigen Namen sollen per Makro von M1 nach M2 transferiert werden.
Dazu habe ich eine SVERWEIS Funktion erstellt (per Makro Recorder und leicht abgeändert). Das sieht so aus:
Sub TEST2()
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[-0],'[M1.xls]Rückseite'!R5C2:R14C9,8,FALSE)),0,VLOOKUP(RC[-0],'[M1.xls]Rückseite'!R5C2:R14C9,8,FALSE))"
Range("C6").Select
Selection.AutoFill Destination:=Range("C6:C24"), Type:=xlFillDefault
Range("C6:C24").Select
End Sub
Grundsätzlich funktioniert das Script.
Nun möchte ich aber, dass diese Funktion für mehrere Arbeitsmappen durchgeführt wird, die in einem Ordner liegen. Und das Ergebnis aus jeder Arbeitsmappe soll in der nächsten Spalte der Zieldatei ausgegeben werden.
Ziel soll es sein, nur den Dateipfad der .xls Files anzugeben und dann arbeitet das Makro alle nacheinander ab. Dazu muss das Makro eine Reihenfolge beim Öffnen der Datein beachten, die entsprchend aufsteigend nummeriert sind. Außerdem soll das Makro auch noch das Datum aus einer Zelle ziehen.
Kann mir jemand dabei helfen?
Danke und Grüße
Tobias
|