Rames hatte dieses tolle Makro mal in 2003 im Forum gepostet und ich wollte es bei mir anwenden.
Mein Ziel, mehrere Exceldateien in eine Exceldatei ein Arbeitsblatt zu kopieren. Die zu kopierenden Dateien sind nur in Tabelle 1 der Dateien.
Habe den Pfad angepaßt und bei mir soll es bereits in Zeile 2 losgehen.
Nun bekomme ich keine Fehlermeldung, aber es werden die Dateien auch nicht zusammengeführt.
Habe ich etwas übersehen, oder kann es sein? Meine ich hätte alles Endungen auf 2007 angepaßt.
Sub Dateien_in_eine_Tabelle_zusammenfuehren()
'(C) Ramses
Dim Datei As String
Dim Arbeitsmappe As String
Dim Pfad As String
Pfad = "C:\Dokumente und Einstellungen\Carmen\Eigene Dateien\entgelte Periode\November" 'Pfad _
angepasst
Datei = Dir(Pfad & "*.xlsx")
Application.ScreenUpdating = False
'Active Mappe
Arbeitsmappe = ActiveWorkbook.Name
Do While Datei ""
'Öffnet eine Datei
Workbooks.Open Datei
'Kopiert von den Zeilen 2 bis zum Ende
'in die aktive Mappe und fügt sie jeweils unten an
Rows("2:" & ActiveWorkbook.ActiveSheet.Range("A1048576").End(xlUp).Row).Copy _
Destination:=Workbooks(Arbeitsmappe).ActiveSheet.Range("A1048576").End(xlUp).Offset(1, _
0)
'Schliesst die geöffnete Datei
ActiveWorkbook.Close False
'Prüft für die nächste Datei
Datei = Dir()
Loop
Application.ScreenUpdating = True
End Sub
Über einen Tip, würde ich mich freuen.Vielen Dank vorab und einen schönen Montag!
Viele Grüße Carmen