ich versuche gerade eine Tabelle aus allen in einem Verzeichnis stehenden xls-Dateien in einer neuen Tabelle zusammenzuführen. Habe dazu einige Anregungen im Forum gefunden. Allerdings macht das Makro noch nicht das, was ich will...
Im Quelltabellenblatt stehen Daten ab Zeile 15 (Spalte A und B sind leer und ausgeblendet). Bei der Konsolidierung wird jede gewünschte Datei eröffnet und jeweils ab Zeile 15 wieder in meine neue Datei geschrieben (Makro findet nicht den "richtigen" Einfügebereich). Ich möchte in der Zieldatei aber alle Einträge untereinander haben, Hier mal der verwendete Script. Ich hoffe, dass mir jemand helfen kann!!
Vielen Dank schon mal im voraus...
Ron
Sub Dateien_in_eine_Tabelle_zusammenfuehren()
Dim Datei As String
Dim Arbeitsmappe As String
Dim Pfad As String
Pfad = "c:\temp\zahlen\"
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 15 bis zum Ende
'in die aktive Mappe und fügt sie jeweils unten an
Sheets("Daten kum").Select
Rows("15:" & ActiveWorkbook.ActiveSheet.Range("A65536").End(xlDown).Row).Copy _
Destination:=Workbooks(Arbeitsmappe).ActiveSheet.Range("A65536").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