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 jeder 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     Dim Outwbk As Workbook

Set Outwbk = ActiveWorkbook

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:=Outwbk.Sheets(Outwbk.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 (2409) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Zusammenführen vieler Arbeitsmappen.