Wie kombiniert man mehrere Arbeitsmappen in Excel zu einer einzigen Master-Arbeitsmappe?
Sind Sie schon einmal ratlos dagestanden, wenn es galt, mehrere Excel-Arbeitsmappen zu einer Master-Arbeitsmappe zusammenzuführen? Besonders knifflig wird es, wenn jede dieser Arbeitsmappen mehrere Arbeitsblätter enthält. Doch wie kombiniert man gezielt nur bestimmte Arbeitsblätter aus mehreren Arbeitsmappen in einer einzigen Datei? In diesem Tutorial zeigen wir Ihnen Schritt für Schritt mehrere praktische Methoden, um genau dieses Problem elegant zu lösen.
- Methode A:Mehrere Arbeitsmappen mit der Funktion „Verschieben oder Kopieren“ in eine Arbeitsmappe kombinieren
- Methode B:Mehrere Arbeitsmappen oder bestimmte Blätter von Arbeitsmappen mithilfe von VBA in eine Master-Arbeitsmappe zusammenführen
- Methode C:Mehrere Arbeitsmappen oder angegebene Blätter von Arbeitsmappen einfach in eine Arbeitsmappe zusammenführen
Mehrere Arbeitsmappen mit der Funktion „Verschieben oder Kopieren“ in eine Arbeitsmappe zusammenführen
Wenn nur wenige Arbeitsmappen zusammengeführt werden müssen, können Sie den Befehl „Verschieben oder Kopieren“ nutzen, um die Blätter manuell aus der ursprünglichen Arbeitsmappe in die Master-Arbeitsmappe zu verschieben oder zu kopieren.
1. Öffnen Sie die Arbeitsmappen, die Sie zu einer Master-Arbeitsmappe zusammenführen möchten.
2. Wählen Sie in der ursprünglichen Arbeitsmappe diejenigen Arbeitsblätter aus, die Sie in die Master-Arbeitsmappe verschieben oder kopieren möchten.
Hinweise:
1). Sie können mehrere nicht benachbarte Arbeitsblätter auswählen, indem Sie die Strg-Taste gedrückt halten und nacheinander auf die gewünschten Blattregisterkarten klicken.
2). Um mehrere benachbarte Arbeitsblätter auszuwählen, klicken Sie auf die erste Blattregisterkarte, halten Sie die Umschalttaste gedrückt und klicken Sie anschließend auf die letzte Blattregisterkarte, um alle auszuwählen.
3). Klicken Sie mit der rechten Maustaste auf eine beliebige Blattregisterkarte und wählen Sie im Kontextmenü Alle Blätter auswählen, um gleichzeitig alle Arbeitsblätter der Arbeitsmappe auszuwählen.
3. Nachdem Sie die gewünschten Arbeitsblätter ausgewählt haben, klicken Sie mit der rechten Maustaste auf die Blattregisterkarte und wählen Sie im Kontextmenü Verschieben oder Kopieren. Siehe Screenshot:
4. Daraufhin öffnet sich das Dialogfeld Verschieben oder Kopieren. Wählen Sie im Dropdown-Menü Zielmappe die Master-Arbeitsmappe aus, in die Sie die Blätter verschieben oder Arbeitsblätter kopieren möchten. Wählen Sie im Feld Vor Blatt die Option „An das Ende verschieben“, aktivieren Sie das Kontrollkästchen Kopie erstellen, und klicken Sie abschließend auf die Schaltfläche OK.
Anschließend sehen Sie, dass die Arbeitsblätter beider Arbeitsmappen in einer einzigen Arbeitsmappe zusammengeführt wurden. Wiederholen Sie die oben genannten Schritte, um Arbeitsblätter weiterer Arbeitsmappen in die Master-Arbeitsmappe zu integrieren.
Mehrere Arbeitsmappen oder bestimmte Blätter von Arbeitsmappen mithilfe von VBA in eine Master-Arbeitsmappe zusammenführen
Wenn Sie mehrere Arbeitsmappen in eine einzige zusammenführen möchten, können Sie die folgenden VBA-Codes nutzen, um dies schnell und effizient zu erledigen. Gehen Sie dazu wie folgt vor:
1. Speichern Sie alle Arbeitsmappen, die Sie zusammenführen möchten, in einem gemeinsamen Ordner.
2. Öffnen Sie eine Excel-Datei (diese Arbeitsmappe wird zur Master-Arbeitsmappe).
3. Drücken Sie die Tastenkombination Alt+F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen. Klicken Sie im Fenster Microsoft Visual Basic für Applikationen auf Einfügen > Modul, und fügen Sie den unten stehenden VBA-Code in das Modulfenster ein.
VBA-Code 1: Mehrere Excel-Arbeitsmappe in eine Arbeitsmappe zusammenführen
Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End SubHinweise:
1. Der obige VBA-Code behält nach dem Zusammenführen die ursprünglichen Blattnamen der Arbeitsmappen bei.
2. Wenn Sie nach dem Zusammenführen erkennen möchten, aus welcher Quelle die einzelnen Arbeitsblätter in der Master-Arbeitsmappe stammen, verwenden Sie bitte den folgenden VBA-Code 2.
3. Wenn Sie nur bestimmte Arbeitsblätter aus Ihren Arbeitsmappen in eine Master-Arbeitsmappe zusammenführen möchten, unterstützt Sie der folgende VBA-Code 3 dabei.
Im VBA-Code lautet „C:\Users\DT168\Desktop\KTE\“ der Dateipfad. In VBA-Code 3 enthält „Sheet1,Sheet3“ die Liste der Arbeitsblätter, die Sie in eine Master-Arbeitsmappe zusammenführen möchten. Passen Sie diese Angaben einfach Ihren Anforderungen an.
VBA-Code 2: Arbeitsmappen zusammenführen in eine Arbeitsmappe zusammenführen (jedes Arbeitsblatt erhält als Präfix den Namen seiner ursprünglichen Datei):
Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
VBA-Code 3: Angegebene Arbeitsblätter mehrerer Arbeitsmappen in eine Master-Arbeitsmappe zusammenführen:
Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next
xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"
xArr = Split(xStrName, ",")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub4. Drücken Sie die Taste F5, um den Code auszuführen. Anschließend werden alle Arbeitsblätter oder die angegebenen Arbeitsblätter der Arbeitsmappen im entsprechenden Ordner sofort in eine Master-Arbeitsmappe zusammengeführt.
Mehrere Arbeitsmappen oder bestimmte Blätter von Arbeitsmappen einfach in eine Arbeitsmappe zusammenführen
Glücklicherweise vereinfacht das Kombinieren-Tool von Kutools für Excel das Zusammenführen mehrerer Arbeitsmappen erheblich. Sehen wir uns an, wie Sie diese Funktion zum Zusammenführen mehrerer Arbeitsmappen nutzen können.
Bevor Sie Kutools für Excel verwenden, laden Sie es bitte zunächst herunter und installieren.
1. Erstellen Sie ein neues Arbeitsblatt und klicken Sie auf KUTOOLS PLUS > Kombinieren. Anschließend erscheint ein Dialogfeld mit dem Hinweis, dass alle zusammenzuführenden Arbeitsmappen gespeichert sein müssen und die Funktion nicht auf geschützte Arbeitsmappen angewendet werden kann. Klicken Sie auf die Schaltfläche OK.
2. Wählen Sie im Assistenten Arbeitsblätter konsolidieren die Option Arbeitsblätter von mehreren Arbeitsmappen in eine Arbeitsmappe kopieren aus und klicken Sie auf die Schaltfläche Weiter. Siehe Screenshot:
3. Klicken Sie im Dialogfeld Arbeitsblätter konsolidieren – Schritt 2 von 3 auf Hinzufügen > Datei oder Ordner, um die Excel-Dateien hinzuzufügen, die Sie zu einer Arbeitsmappe zusammenführen möchten. Nachdem Sie die Excel-Dateien hinzugefügt haben, klicken Sie auf die Schaltfläche Fertig stellen und wählen Sie einen Ordner aus, in dem die Master-Arbeitsmappe gespeichert werden soll. Siehe Screenshot:
Jetzt sind alle Arbeitsmappen zu einer einzigen zusammengeführt.
Im Vergleich zu den beiden oben genannten Methoden bietet Kutools für Excelfolgende Vorteile:
- 1) Alle Arbeitsmappen und Arbeitsblätter werden im Dialogfeld aufgelistet;
- 2) Arbeitsblätter, die Sie vom Zusammenführen ausschließen möchten, deaktivieren Sie einfach durch Entfernen des Häkchens;
- 3) Leeres Arbeitsblatt werden automatisch ausgeschlossen;
- 4) Der ursprüngliche Dateiname wird nach dem Zusammenführen als Präfix zum Blattnamen hinzugefügt;
- Weitere Funktionen dieser Funktion finden Sie hier.
Wenn Sie eine kostenlose 30-Tage-Testversion dieses Dienstprogramms nutzen möchten, klicken Sie bitte hier, um sie herunterzuladen, und führen Sie anschließend die Aktion gemäß den oben beschriebenen Schritten aus.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins