VBA-Kopieren "eingrenzen"
29.11.2007 17:50:00
Fabio
ich will aus diversen Excel-Datein die Inhalte aus dem Sheet1 in ein "gesamttabellen-Blatt" kopieren (siehe VBA unten - aus dem Forum).
Kann mir das noch jemand eingrenzen ? Ich will nur, das Excel die Zeilen 2-75 kopiert.
Lieben Dank!
Fabio
Sub Dateiliste_Öffnen()
' erstellt von Hajo.Ziplies@web.de
' http://home.media-n.de/ziplies/
' alle Dateien eines Ordners öffnen
Dim strVerzeichnis As String
Dim StrDatei As String
Dim StrTyp As String
Dim Dateiname As String
strVerzeichnis = "C:\Testdateien_Excel\Test_Acht\"
StrTyp = "*.xls"
Dateiname = Dir(strVerzeichnis & StrTyp)
Do While Dateiname ""
Workbooks.Open Filename:=strVerzeichnis & Dateiname
If ActiveWorkbook.ActiveSheet.Range("A65536").End(xlUp).Row > 1 Then
Rows("2:" & ActiveWorkbook.ActiveSheet.Range("A65536").End(xlUp).Row).Cut _
Destination:=Workbooks(Arbeitsmappe).ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0)
End If
ActiveWorkbook.Close True
Dateiname = Dir
Loop
End Sub