mehrere Dateien zusammenführen
08.01.2022 15:46:05
Ronald
Ich möchte mehrere Dateien zusammenführen, aber leider haben diese Dateien mehrere Blattregisterkarten (gebohrte Teile, mechanische Teile, Stücklisten usw.) In diesem Makro werden einfach alle Blattregisterkarten (gebohrte Teile, mechanische Teile, Stücklisten usw.) zusammengeführt, aber ich muss nur die Stücklistenblattregisterkarte zusammenführen. Wäre es auch möglich, alle "Stücklisten" in nur einer Blattregisterkarte zusammenzuführen und nicht in mehreren "Blattregisterkarten".
Und noch etwas. Die originalen Dateinamen sind sehr lang. Aber in diesem Makro funktioniert nur, wenn ich den Dateinamen kürze, aber ich möchte den Dateinamen länger behalten. Wenn ich den Dateinamen nicht kürze, kommt Laufzeitfehler 1004!
Sub Mehrere_Datein_zusammenfüren()
Dim Zielarbeitsmappe As Object
Dim QuellenArbeitsmappe As Object
Dim Pfad As String
Dim Datei As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Zielarbeitsmappe = ActiveWorkbook
Pfad = InputBox("Pfad eingeben", "Pfad")
Datei = Dir(CStr(Pfad & "*xl*"))
Do While Datei ""
Set QuellenArbeitsmappe = Workbooks.Open(Pfad & Datei, False, True)
QuellenArbeitsmappe.Sheets().Copy after:=Zielarbeitsmappe.Sheets(Zielarbeitsmappe.Sheets.Count)
Zielarbeitsmappe.Sheets(Zielarbeitsmappe.Sheets.Count).Name = Datei
QuellenArbeitsmappe.Close
Datei = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "Dateien wurden zusammengeführt"
Set Zielarbeitsmappe = Nothing
End Sub
https://www.herber.de/bbs/user/150254.xlsm
Vielen Dank