Excel Tabellen zusammenführen
10.02.2017 15:07:52
joko0803
ich habe ein Problem mit dem Zusammenführen von Excel-files in eine gemeinsame Datei.
Ich öffne z.B. 10 gespeicherte Excel-files, die alle nur ein Tabellenblatt beinhalten und möchte diese in eine einzige Datei einlesen. Dazu habe ich folgendes VBA geschrieben, das aber immer wider zwischendrin bei "Workbooks(Zähler + 1).Activate" abbricht.
Ich könnte mir auch vorstellen das direkt aus dem Dateipfad heraus zu tun, das schaffe ich aber leider überhaupt nicht.
Weiß jemand Rat?
Schon mal Danke.
John
Sub Blaetter_in_neue_Datei_verschieben()
Dim ziel As Workbook
Dim quelle As Workbook
Set ziel = ActiveWorkbook
For Zähler = 1 To Workbooks.Count - 1
Workbooks(Zähler + 1).Activate
Sheets(1).Move after:=ziel.Sheets(Sheets.Count)
Next Zähler
End Sub