Auslesen/kopiere aber nicht alle Zeilen!
28.05.2008 10:56:00
Fabio
dank der Suche habe ich das unten genannte VBA gefunden.
Ich will folgendes tun:
Öffene alle *.xls-Datein im Verzeichnis "C:\test\test1"
Kopiere die Inhalte in die Datei "Gesamt" (immer unten angehängt).
Problem: Excel soll nicht alle inhalte kopieren sondern ausschliesslich die Inhalte der Zeilen "9-25"
Kann mir das jemand bitte ändern?
Danke!
Fabio
Sub Dateien_oeffnen()
Dim TmpDatei As String, Pfad As String
Dim LRow1 As Integer, LRow2 As Integer
Dim wsMaster As Worksheet
Set wsMaster = ThisWorkbook.Sheets("Sheet1")
ChDrive "C"
ChDir "C:\test\test1\"
TmpDatei = Dir("C:\test\test1\*.xls")
Application.ScreenUpdating = False
Do While TmpDatei ""
LRow1 = wsMaster.Cells(Rows.Count, 1).End(xlUp).Row
Workbooks.Open TmpDatei
LRow2 = Workbooks(TmpDatei).Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
Workbooks(TmpDatei).Sheets("Sheet1").Rows("1:" & LRow2).Copy wsMaster.Cells(LRow1 + 1, 1)
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
TmpDatei = Dir()
Loop
Application.ScreenUpdating = True
End Sub