Joy stieß auf ein Problem beim Zusammenführen einiger Arbeitsmappen. Die meisten Arbeitsmappen – etwa 200 davon alle in einem einzigen Ordner – enthalten jeweils ein einziges Arbeitsblatt, einige jedoch mehr. Die Arbeitsblätter für jede dieser Arbeitsmappen müssen einer einzelnen Arbeitsmappe hinzugefügt werden.

Der einfachste Weg, Zusammenführungen dieser Größenordnung durchzuführen – insbesondere wenn Sie dies häufig tun müssen – ist die Verwendung eines Makros. Das folgende Makro zeigt ein Dialogfeld an, in dem Sie aufgefordert werden, die zusammenzuführenden Dateien auszuwählen. (Sie können mehrere Arbeitsmappen auswählen, indem Sie die Strg-Taste gedrückt halten, während Sie auf jede klicken.) Sie durchläuft die ausgewählte Liste, öffnet jede und verschiebt alle Arbeitsblätter mit dem Code an das Ende der Arbeitsmappe.

Sub CombineWorkbooks()

Dim FilesToOpen     Dim x As Integer

On Error GoTo ErrHandler     Application.ScreenUpdating = False

FilesToOpen = Application.GetOpenFilename _       (FileFilter:="Microsoft Excel Files (.xls?), .xls?", _       MultiSelect:=True, Title:="Files to Merge")



If TypeName(FilesToOpen) = "Boolean" Then         MsgBox "No Files were selected"

GoTo ExitHandler     End If

x = 1     While x <= UBound(FilesToOpen)

Workbooks.Open FileName:=FilesToOpen(x)

Sheets().Move After:=ThisWorkbook.Sheets _           (ThisWorkbook.Sheets.Count)

x = x + 1     Wend

ExitHandler:

Application.ScreenUpdating = True     Exit Sub

ErrHandler:

MsgBox Err.Description     Resume ExitHandler End Sub

Beim Hinzufügen der Arbeitsblätter am Ende der Arbeitsmappe hängt Excel automatisch ein (2), (3) usw. an, wenn doppelte Arbeitsblattnamen erkannt werden. Alle Formeln im Buch, die sich auf andere Blätter beziehen, werden ebenfalls aktualisiert, um die neuen Namen wiederzugeben.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (12652) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tippes für die ältere Menüoberfläche von Excel finden Sie hier:

Zusammenführen vieler Arbeitsmappen.