VBA-Warum kopiert der nicht ab Zeile "2"
23.11.2007 14:53:14
Fabio
aus dem Netz habe ich einen "Grundcode" (mittlerweile angepasst).
In jeder Datei steht in Zeile "1" die entsprechende Überschrift der Reihe für die Eintragungen.
Excel soll eine Datei öffnen, ab Zeile "2" (weil die Überschriften brauche ich ja nicht) alle Reihen ausschneiden und in die "Gesamt-Datei" einfügen. Das klappt auch so sehr gut.
Wenn aber die aufgerufene Datei (z.B. Sport_2.xls) keine Einträge (ausser der Überschrift) enthält, schneidet Excel die Überschriftenzeile (1) aus und fügt die ein. Grummel. Wie kann ich das verhindern?
Der Code:
Sub Dateien_in_eine_Tabelle_zusammenfuehren()
'(C) Unbekannt (Internet)
Dim Datei As String
Dim Arbeitsmappe As String
Dim Pfad As String
Pfad = "C:\Testordner\"
Datei = Dir(Pfad & "*.xls")
Application.ScreenUpdating = False
'Active Mappe
Arbeitsmappe = ActiveWorkbook.Name
'Öffnet eine Datei
Workbooks.Open Filename:="C:\Testordner\Sport_1.xls"
'Kopiert von den Zeilen 2 bis zum Ende
'in die aktive Mappe und fügt sie jeweils unten an
Rows("2:" & ActiveWorkbook.ActiveSheet.Range("A65536").End(xlUp).Row).Cut _
Destination:=Workbooks(Arbeitsmappe).ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0)
'Schliesst die geöffnete Datei
ActiveWorkbook.Save
ActiveWindow.Close
'Öffnet eine Datei
Workbooks.Open Filename:="C:\Testordner\Sport_2.xls"
'Kopiert von den Zeilen 2 bis zum Ende
'in die aktive Mappe und fügt sie jeweils unten an
Rows("2:" & ActiveWorkbook.ActiveSheet.Range("A65536").End(xlUp).Row).Cut _
Destination:=Workbooks(Arbeitsmappe).ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0)
'Schliesst die geöffnete Datei
ActiveWorkbook.Save
ActiveWindow.Close
Application.ScreenUpdating = True
End Sub