Arbeitsblaetter aus Datei in Arbeitsmappe kopieren
16.09.2008 06:03:00
Benjamin
normalerweise lese ich immer nur und finde alle loesungen, diesmal hab ich einfach nichts gefunden.
Ich wuerde gerne als sehr vielen Dateien immer das komplette dritte Arbeitsbaltt kopieren und in einer neuen Arbeitsmappe untereinander einfuegen. Hab auch schon einen ansatz gefunden, der leider nicht richtig funktionier aber von der Bedienung genau das ist, was ich mir vorstellen wuerde:
Sub copy()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
dat = True
While dat = True
dat = Application.GetOpenFilename("xls Files (*.xls), *.xls")
Workbooks.Open dat
zeiQuelle = Sheets(3).Range("a65536").End(xlUp).Row
zeiZiel = ThisWorkbook.Sheets(1).Range("a65536").End(xlUp).Row
Range(Rows(1), Rows(zeiQuelle)).copy Destination:=ThisWorkbook.Sheets(1).Cells(zeiZiel, 1)
ActiveWorkbook.Close SaveChanges:=False
Wend
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Wenn ihr mehr informationen benoetig einfach fragen.
Vielleicht hab jemand eine Idee, ich waer sehr dankbar.
Viele Gruesse
Benjamin