Arbeitsblätter mit demselben Namen aus mehreren Arbeitsmappen in eines zusammenführen

Das Zusammenführen von Daten aus mehreren Excel-Arbeitsmappen in ein einzelnes Blatt ist eine gängige Anforderung bei der Datenanalyse, insbesondere bei der Erstellung konsolidierter Berichte oder der Datenaggregation aus verschiedenen Quellen. Dies kann besonders herausfordernd sein, wenn Sie Arbeitsblätter mit demselben Namen aus verschiedenen Arbeitsmappen kombinieren müssen. In diesem Tutorial werden wir zwei effektive Methoden vorstellen, um diesen Prozess zu optimieren: die Verwendung von VBA-Code für diejenigen, die eine praktische, programmierbare Herangehensweise bevorzugen, und die Nutzung von Kutools für Excel für Benutzer, die nach einer benutzerfreundlicheren, automatisierten Lösung suchen.

• Arbeitsblätter mit demselben Namen mit VBA-Code in eines zusammenführen
• Arbeitsblätter mit demselben Namen ganz einfach mit Kutools für Excel in eines zusammenführen

Arbeitsblätter mit demselben Namen mit VBA-Code in eines zusammenführen

Dieser Abschnitt enthält einen VBA-Code zum Zusammenführen von Arbeitsblättern mit demselben Namen aus mehreren Arbeitsmappen in eines. Bitte gehen Sie wie folgt vor:

1. Drücken Sie "Alt" + "F11", um den VBA-Editor zu öffnen.
2. Klicken Sie im VBA-Editor auf "Einfügen" > "Modul" und geben Sie dann den folgenden VBA-Code in das Modul ein.
   VBA-Code: Mehrere Arbeitsmappen mit gleichem Namen in eine zusammenführen

   Sub CombineSameNameSheetsFromMultipleWorkbooks()
   'Updated by Extendoffice 2025/3/27
       Dim wsTarget As Worksheet
       Dim wbTarget As Workbook
       Dim wbSource As Workbook
       Dim wsSource As Worksheet
       Dim strSheetName As String
       Dim fd As FileDialog
       Dim FileChosen As Integer
       Dim FileName As String
       Dim lastRow As Long
   
       ' Set the name of the sheets to combine
       strSheetName = "SheetName" ' Change "SheetName" to the name of your sheet
   
       Set wbTarget = Workbooks.Add
       Set wsTarget = wbTarget.Sheets(1)
       wsTarget.Name = "Combined Data"
   
       Set fd = Application.FileDialog(msoFileDialogFilePicker)
       fd.AllowMultiSelect = True
   
       FileChosen = fd.Show
       If FileChosen = -1 Then
           For Each varFile In fd.SelectedItems
               Set wbSource = Workbooks.Open(varFile)
               
               On Error Resume Next
               Set wsSource = wbSource.Sheets(strSheetName)
               On Error GoTo 0
               
               If Not wsSource Is Nothing Then
                   lastRow = wsTarget.Cells(wsTarget.Rows.Count, 1).End(xlUp).Row
                   
                   wsSource.UsedRange.Copy Destination:=wsTarget.Cells(lastRow + 1, 1)
                   
                   Set wsSource = Nothing
               End If
               wbSource.Close False
           Next varFile
       End If
       MsgBox "Data has been combined successfully!", vbInformation
   End Sub

   Hinweis: Bevor Sie den Code ausführen, müssen Sie "SheetName" in der Variablen "strSheetName" in den tatsächlichen Namen der Arbeitsblätter ändern, die Sie zusammenführen möchten.

   

3. Drücken Sie "F5", um den Code auszuführen. Ein Fenster "Excel-Dateien auswählen" wird angezeigt. Wählen Sie bitte die Arbeitsmappen aus, die die Arbeitsblätter mit demselben Namen enthalten, die Sie zusammenführen möchten, und klicken Sie dann auf die Schaltfläche "Öffnen".

   

4. Sobald der Zusammenführungsprozess abgeschlossen ist, erscheint ein Dialogfeld "Microsoft Excel", das bestätigt, dass die Arbeitsblätter erfolgreich zusammengeführt wurden. Klicken Sie auf "OK", um es zu schließen.

   

Nun wurde der Inhalt aller Arbeitsblätter mit demselben Namen aus den ausgewählten Arbeitsmappen in ein einzelnes Arbeitsblatt in einer neuen Arbeitsmappe zusammengeführt.

Arbeitsblätter mit demselben Namen ganz einfach mit Kutools für Excel in eines zusammenführen

Während VBA leistungsstarke Automatisierungsfunktionen in Excel bietet, kann es für Benutzer ohne Programmierkenntnisse komplex und einschüchternd sein. Darüber hinaus erfordert VBA sorgfältige Sicherheitspraktiken und kann Kompatibilitätsprobleme aufweisen. Im Gegensatz dazu bietet "Kutools für Excel" eine benutzerfreundlichere und sicherere Alternative, um den Prozess des Zusammenführens von Arbeitsblättern aus mehreren Arbeitsmappen zu vereinfachen, wodurch komplexe Codierung überflüssig wird und die Aufgabe für alle Excel-Benutzer zugänglich gemacht wird.

Nach der Installation von Kutools für Excel wählen Sie "Kutools Plus" > "Konsolidieren", um den Assistenten "Daten zusammenführen" zu öffnen. Konfigurieren Sie dann wie folgt.

1. Wählen Sie im Assistenten "Arbeitsblätter zusammenführen – Schritt 1 von 3" die Option "Daten von mehreren Arbeitsmappen mit demselben Arbeitsblattnamen zusammenführen" und klicken Sie auf "Weiter".

   

2. Klicken Sie im Assistenten "Schritt 2 von 3" auf die Schaltfläche "Hinzufügen", um die Arbeitsmappen auszuwählen, die die Arbeitsblätter mit demselben Namen enthalten, die Sie zusammenführen möchten.
   Hinweis: Wenn die Arbeitsmappen in einem Ordner gespeichert sind, können Sie auf den Dropdown-Pfeil neben der Schaltfläche "Hinzufügen" klicken, um das Untermenü zu öffnen, und dann "Ordner" auswählen, um schnell alle Excel-Dateien aus diesem Ordner hinzuzufügen.

   

3. Nachdem Sie die Arbeitsmappen hinzugefügt haben, stehen Ihnen je nach Bedarf zwei Optionen zur Verfügung:
   • Wenn Sie alle Arbeitsblätter aus den ausgewählten Arbeitsmappen in eine Arbeitsmappe zusammenführen möchten, klicken Sie einfach auf die Schaltfläche "Weiter". Alle Arbeitsblätter werden zusammengeführt und der Inhalt der gleichnamigen Arbeitsblätter in ein einzelnes Arbeitsblatt integriert.
   • Wenn Sie nur die Arbeitsblätter mit demselben Namen zusammenführen möchten, wählen Sie zunächst ein Arbeitsblatt im Bereich "Arbeitsblattliste" aus und klicken Sie dann auf die Schaltfläche "Gleiches Arbeitsblatt". Dadurch werden automatisch alle Arbeitsblätter mit demselben Namen aus den hinzugefügten Arbeitsmappen ausgewählt. Klicken Sie anschließend auf "Weiter", um fortzufahren.

   

4. Im letzten Schritt des Assistenten behalten Sie entweder die voreingestellte Option bei oder passen die Einstellungen nach Bedarf an und klicken dann auf "Fertig".

   

5. Wählen Sie einen Zielordner für die zusammengeführte Arbeitsmappe aus, geben Sie einen Dateinamen ein und klicken Sie dann auf die Schaltfläche "Speichern", um den Vorgang abzuschließen.

   

Das Zusammenführen von Arbeitsblättern mit demselben Namen aus mehreren Arbeitsmappen kann mit den richtigen Tools effizient durchgeführt werden. Ob Sie eingebaute Methoden oder erweiterte Add-ins bevorzugen, beide Ansätze bieten zuverlässige Lösungen, die unterschiedlichen Fähigkeitsstufen gerecht werden. Das Beherrschen dieser Techniken wird Ihre Produktivität erheblich steigern und die Datenkonsolidierung in Excel optimieren.

Wenn Sie mehr über diese Funktion erfahren möchten, besuchen Sie bitte diese Seite: Daten von mehreren Arbeitsmappen mit demselben Arbeitsblattnamen zusammenführen Tutorial.

Verwandte Artikel:

Wie kann man mehrere Arbeitsmappen in eine Arbeitsmappe in Excel zusammenführen?

Wie kann man Arbeitsblätter / Arbeitsmappen in ein Arbeitsblatt zusammenführen?

Wie kann man Daten aus Arbeitsblättern / Arbeitsmappen in ein Arbeitsblatt zusammenfassen?