bolshi
Mitglied
Hallo,
mit folgendem Makro will ich eine Vielzahl von Excel-Dateien zu einer Excel-Datei verbinden:
Beim Makro habe ich folgende Änderung vorgenommen:
gegen folgendes ausgetauscht:
Der Debugger schlägt beim Initialisieren von "T" jedoch Alarm.
Gruß
Ingo
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