ich benutzte folgendes Makro das mir "Remo" am 2.5.03 hier im Forum geschickt hat. Das Makro soll dabei aus einer Vielzahl von Excel-Tabellen die in verschiedenen Verzeichnissen liegen immer wieder die Datei ZEiterfassung öffnen und die Daten aller Blätter einlesen. Prinzipiell funktioniert das jetzt auch ganz gut, nur leider kommt nach kurzer ZEit immer der Laufzeitfehler 9 "Index ausserhalb des gültigen Bereichs". Weiss jemand was ich dagegen tun kann. Danke euch allen vielmals und besonders dem Remo für das Makro.
Grüße Olaf
Sub einlesen()
For i = 2 To 200
Windows("Datenbank.xls").Activate
Sheets("Ordnernamen").Select
Ordner = Cells(i, 1)
Workbooks.Open Filename:="C:\" & Ordner & "\Zeiterfassung.xls"
Blatt = 1
Do Until Blatt > 12
Sheet(Blatt).Select
Rows("1:36").Copy
Windows("Datenbank.xls").Activate
Sheets("Daten").Select
Zeilen = 2
Do Until IsEmpty(Cells(Zeilen, 1))
Zeilen = Zeilen + 36
Loop
Rows(Zeilen & ":" & Zeilen + 35).PasteSpecial
Blatt = Blatt + 1
Windows("Zeiterfassung.xls").Activate
Loop
ActiveWorkbook.Save
ActiveWorkbook.Close
Next i
End
Windows("Datenbank.xls").Activate
Sheets("Daten").Select
End Sub