AW: Mehrere Dateien in einem Tabellenblatt
13.04.2021 17:44:07
Daniel
Hi
in VBA mit einer Schleife über die Dateien des Ordners:
dim Datei as string
dim Pfad as string
Pfad = "C:\Ordnerstruktur\"
Thisworkbook.Sheets("Zieltabelle").Usedrange.offset(1, 0).Clear 'vorhandene Inhalte löschen, _
aber Überschrift behalten
Datei = Dir(Pfad & "*.xlsx")
Do while Datei ""
Workbooks.Open Pfad & Datei, ReadOnly:=True
ActiveWorkbook.Sheets(1).Usedrange.Offset(1, 0).Copy 'ohne Überschrift kopieren
ThisWorkbook.Sheets("Zieltabelle").Cells(Rows.Count, 1).End(xlup).Row.Offset(1, 0). _
PasteSpecial xlpasteall
ActiveWorkbook.Close false
Datei = Dir()
Loop
gruß Daniel