Viele Excel-Dateien zu einer Datei

bolshi

Mitglied
Hallo,
mit folgendem Makro will ich eine Vielzahl von Excel-Dateien zu einer Excel-Datei verbinden:

Code:
Sub Dateien_in_eine_Tabelle_zusammenfuehren()
'(C) Ramses
Dim Datei As String
Dim Arbeitsmappe As String
Dim Pfad As String
Dim T
T = Workbooks(Arbeitsmappe).ActiveSheet.UsedRange.Rows.Count + 1

Pfad = "d:\pfad_zum_verzeichnis\"
Datei = Dir(Pfad & "*.xls")
Application.ScreenUpdating = False
'Active Mappe
Arbeitsmappe = ActiveWorkbook.Name
Do While Datei <> ""
'Öffnet eine Datei
Workbooks.Open Datei
'Kopiert von den Zeilen 1 bis zum Ende
'in die aktive Mappe und fügt sie jeweils unten an
ActiveWorkbook.ActiveSheet.UsedRange.Copy _
Destination:=Workbooks(Arbeitsmappe).ActiveSheet.Range("A" & T) 
'Schliesst die geöffnete Datei
ActiveWorkbook.Close False
'Prüft für die nächste Datei
Datei = Dir()
Loop
Application.ScreenUpdating = True
End Sub

Beim Makro habe ich folgende Änderung vorgenommen:

Code:
Dim T
T = Workbooks(Arbeitsmappe).ActiveSheet.UsedRange.Rows.Count + 1

und 

ActiveWorkbook.ActiveSheet.UsedRange.Copy _
Destination:=Workbooks(Arbeitsmappe).ActiveSheet.Range("A" & T)

gegen folgendes ausgetauscht:

Code:
Rows("1:" & ActiveWorkbook.ActiveSheet.Range("A1000000").End(xlUp).Row).Copy _
Destination:=Workbooks(Arbeitsmappe).ActiveSheet.Range("A1000000").End(xlUp).Offset(1, 0)

Der Debugger schlägt beim Initialisieren von "T" jedoch Alarm.

Gruß
Ingo
 

Neue Beiträge

Zurück