ich möchte mehrere Dateien in einer Datei zusammenfügen. Bei ein oder zwei Dateien kein Problem alle öffnen und mit Hilfe der "verschieben oder einfügen"- Funktion in die "Haupt"-Datei kopieren.
Bei mehreren Google-Suchen finde ich immer nur wie man per Power Query oder so nur die Daten kopiert. Ich möchte aber immer quasi die Arbeitsmappe aus einer Datei in einer anderen Datei einfügen. Hier im Forum habe ich etwas gefunden aber da ist der letzte Eintrag aus 2006.
Ich habe viele Dateien in welcher immer nur eine Arbeitsmappe ist und diese Mappen sollen in einer Datei zusammengefügt werden, sodass ich am Ende nur eine Datei mit vielen Mappen habe.
Auf einer Internetseite (https://www.wintotal.de/tipp/excel-dateien-zusammenfuehren/) habe ich dieses Script gefunden aber leider läuft es nur bis fett geschriebenen Zeile durch
Sub AlleTabellenblätterZusammenführen()
Dim vntPfadUndDateiNamen As Variant
Dim strPfadUndDatei As String
Dim lngi As Long
Dim wbkMappe As Workbook
Dim wksTabelle As Worksheet
Dim wbkZiel As Workbook
Set wbkZiel = ThisWorkbook
vntPfadUndDateiNamen = Application.GetOpenFileName(FileFilter:="Excel Files (*.xls), *.xls", Title:="Wählen Sie die Dateien für die Zusammenführung aus!", MultiSelect:=True)
If VarType(vntPfadUndDateiNamen) = vbBoolean Then
MsgBox "Vorgang wurde abgebrochen!"
Else
For lngi = LBound(vntPfadUndDateiNamen) To UBound(vntPfadUndDateiNamen)
strPfadUndDatei = vntPfadUndDateiNamen(lngi)
Set wbkMappe = Application.Workbooks.Open(strPfadUndDatei)
For Each wksTabelle In wbkMappe.Worksheets
wksTabelle.Copy wbkZiel.Worksheets(wbkZiel.Worksheets.Count)
Next
wbkMappe.Close False
Next
End If
End Sub
Verwendet wird Excel 2019Vielen Dank
Gruß Christian