Wie teilt man eine Arbeitsmappe in separate Excel-Dateien in Excel auf?

Normalerweise kann man mit dem Befehl Kopieren und dem Befehl Einfügen eine Arbeitsmappe manuell als separate Excel-Datei speichern. Wählen Sie zunächst das gesamte Arbeitsblatt aus, das Sie als separate Datei speichern möchten, erstellen Sie eine neue Arbeitsmappe und fügen Sie es dann in die neue Arbeitsmappe ein und speichern Sie es am Ende.

Dies ist eine benutzerfreundliche Methode, wenn Sie nur wenige Arbeitsblätter als separate Dateien aufteilen müssen. Es kann jedoch zeitaufwendig und mühsam sein, viele Arbeitsblätter manuell durch Kopieren und Einfügen aufzuteilen.

Diese Methode führt die Funktion Verschieben oder Kopieren ein, um ausgewählte Blätter in eine neue Arbeitsmappe zu verschieben oder zu kopieren und als separate Arbeitsmappe zu speichern. Gehen Sie bitte wie folgt vor:

1Wählen Sie die Blätter in der Registerkartenleiste aus, klicken Sie mit der rechten Maustaste darauf und wählen Sie Verschieben oder Kopieren aus dem Kontextmenü. Siehe Screenshot:

Hinweis: Halten Sie die Strg -Taste gedrückt, können Sie mehrere nicht angrenzende Blätter durch Anklicken auswählen; halten Sie die Umschalt -Taste gedrückt, können Sie mehrere angrenzende Blätter auswählen, indem Sie das erste und das letzte Blatt in der Registerkartenleiste anklicken.

2Im Dialogfeld Verschieben oder Kopieren wählen Sie (Neues Buch) aus der In Buch Dropdown-Liste aus, aktivieren Sie die Option Kopie erstellen und klicken Sie auf die Schaltfläche OK Siehe Screenshot:

3. Nun werden alle ausgewählten Blätter in eine neue Arbeitsmappe kopiert. Klicken Sie auf Datei > Speichern, um die neue Arbeitsmappe zu speichern.

Wenn Sie Kutools für Excel installiert haben, kann das Tool „Arbeitsmappe aufteilen“ mehrere Arbeitsblätter mit nur wenigen Klicks bequem und schnell als separate Excel-Dateien aufteilen.

1Nach der Installation von Kutools for Excel, klicken Sie auf Kutools Plus > Arbeitsmappe aufteilen , siehe Screenshot:

2Im Dialogfeld Arbeitsmappe aufteilen führen Sie die folgenden Aktionen aus:
(1) Standardmäßig sind alle Arbeitsblattnamen markiert. Wenn Sie einige der Arbeitsblätter nicht aufteilen möchten, können Sie die Markierung aufheben;
(2) Aktivieren Sie die Option Als Typ speichern ;
(3) Wählen Sie im Dropdown-Menü Speichern unter Typ den gewünschten Dateityp aus, in den Sie aufteilen und speichern möchten.
(4) Klicken Sie dann auf die Schaltfläche Aufteilen Schaltfläche.

Hinweis: Wenn Sie vermeiden möchten, ausgeblendete oder leere Arbeitsblätter aufzuteilen, können Sie die Option Ausgeblendete Arbeitsblätter überspringen oder Leere Arbeitsblätter überspringen aktivieren.

3Im Dialogfeld Ordner durchsuchen legen Sie einen Zielordner fest, um die geteilten separaten Dateien zu speichern, und klicken Sie auf die Schaltfläche OK Schaltfläche.

Nun werden die markierten Arbeitsblätter als neue getrennte Arbeitsmappen gespeichert. Jede neue Arbeitsmappe wird mit dem Namen des ursprünglichen Arbeitsblatts benannt. Siehe Screenshot:

Kutools für Excel„Arbeitsmappe aufteilen“ erleichtert das Aufteilen der aktiven Arbeitsmappe in einzelne Excel-Dateien (eine Datei enthält ein Arbeitsblatt), CSV-Dateien, TXT-Dateien oder PDF-Dateien nach Bedarf. Sie können einstellen, dass alle leeren und ausgeblendeten Arbeitsblätter übersprungen werden. Fordern Sie jetzt eine kostenlose Testversion an!

Der folgende VBA-Code kann Ihnen helfen, mehrere Arbeitsblätter der aktuellen Arbeitsmappe schnell in separate Excel-Dateien aufzuteilen. Gehen Sie bitte wie folgt vor:

1. Erstellen Sie einen neuen Ordner für die Arbeitsmappe, die Sie aufteilen möchten, da sich die geteilten Excel-Dateien im selben Ordner wie die Hauptarbeitsmappe befinden werden.

2. Halten Sie die Tasten ALT + F11 in Excel gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

3. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster ein.

VBA: Eine Arbeitsmappe in mehrere Arbeitsmappen aufteilen und im selben Ordner speichern

Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4Drücken Sie die Taste F5 um diesen Code auszuführen. Und die Arbeitsmappe wird in separate Excel-Dateien im selben Ordner wie die Originalarbeitsmappe aufgeteilt. Siehe Screenshot:

Hinweis: Wenn eines der Blätter denselben Namen wie die Arbeitsmappe hat, funktioniert dieser VBA-Code nicht.

Mehrere Arbeitsmappen in eine einzige Arbeitsmappe zusammenführen

Eine Auswahl als individuelle Datei speichern