Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie exportiere und speichere ich jedes Arbeitsblatt als separate neue Arbeitsmappe in Excel?

Angenommen, Sie möchten ein oder mehrere Arbeitsblätter als neue Arbeitsmappe exportieren und speichern. Wie gehen Sie damit um? Normalerweise können Sie jedes Arbeitsblatt kopieren und in eine neue Arbeitsmappe einfügen. Aber hier bringen wir Ihnen einige praktische Tricks, um damit umzugehen:

Exportieren und speichern Sie Arbeitsblätter als neue Arbeitsmappe mit dem Befehl Verschieben oder Kopieren

Exportieren und speichern Sie Arbeitsblätter als neue Arbeitsmappe mit VBA-Code

Exportieren und speichern Sie Arbeitsblätter als neue Arbeitsmappe mit Kutools für Excel gute Idee3


Schnell mehrere Arbeitsblätter in separate Arbeitsmappe in Excel aufteilen

In Microsoft Excel können Sie ein Arbeitsblatt aus einer Arbeitsmappe als neue Excel-Datei speichern oder trennen, indem Sie dieses Arbeitsblatt kopieren und in eine neue Arbeitsmappe einfügen. Es scheint mühsam, wenn Sie jedes Blatt / Arbeitsblatt einer großen Arbeitsmappe als separate Excel-, TXT-, CSV-, PDF-Dateien aufteilen möchten. Aber mit Kutools for Excel Arbeitsmappe teilen Dienstprogramm, können Sie schnell damit umgehen. Klicken Sie hier, um eine kostenlose 60-Testversion mit allen Funktionen zu erhalten!
doc geteilte Arbeitsmappe 1
Kutools for Excel: mit mehr als 300 praktischen Excel-Add-Ins, die Sie in 60-Tagen kostenlos testen können.

Pfeil blaue rechte Blase Exportieren und speichern Sie Arbeitsblätter als neue Arbeitsmappe mit dem Befehl Verschieben oder Kopieren


Verwendung der Verschieben oder Kopieren Mit diesem Befehl können Sie schnell ein oder mehrere Arbeitsblätter in eine neue Arbeitsmappe exportieren oder kopieren.

Schritt 1: Wählen Sie die Arbeitsblattnamen in der Tableiste aus. Sie können mehrere auswählen, indem Sie gedrückt halten Ctrl Schlüssel oder verschieben Key.

Schritt 2: Klicken Sie mit der rechten Maustaste auf den Namen des Arbeitsblatts und klicken Sie auf Verschieben oder Kopieren aus dem Kontextmenü.
Dokumentexportblätter 1

Schritt 3: In Verschieben oder Kopieren Wählen Sie im Dialogfeld (neues Buch) Artikel aus der Dropdown-Liste von Verschieben Sie ausgewählte Blätter zum Buchen.

Dokumentexportblätter 2

Schritt 4: Klicken Sie dann auf OK, jetzt bist du auf umgestiegen neue Arbeitsmappe Klicken Sie bei exportierten oder kopierten Arbeitsblättern auf Datei > Save um die neue Arbeitsmappe zu speichern.

Hinweis: In dem Verschieben oder Kopieren Dialogfeld gibt es a Erstellen Sie eine Kopie Möglichkeit. Wenn Sie das Kontrollkästchen nicht aktivieren, werden die ausgewählten Arbeitsblätter aus der ursprünglichen Arbeitsmappe entfernt. Wenn es überprüft wird, kopiert es ausgewählte Arbeitsblätter.


Pfeil blaue rechte Blase Exportieren und speichern Sie Arbeitsblätter als neue Arbeitsmappe mit VBA-Code

Dieser folgende Code wird jedes sichtbare Arbeitsblatt in einer neuen Arbeitsmappe exportieren und die Arbeitsmappe mit dem Name des ursprünglichen Blatt in einem neu erstellten Ordner in demselben Pfad wie der aktiven Arbeitsmappe speichern. Bitte machen Sie folgende Schritte:

Schritt 1: Halten Sie die Taste gedrückt ALT + F11 Schlüssel, und es öffnet die Microsoft Visual Basic für Applikationen Fenster.

Schritt 2: Klicken Sie auf Einsatz > Modul, und fügen Sie das folgende Makro in das Modulfenster ein:

VBA: Exportieren und Speichern von Arbeitsblättern als neue Arbeitsmappe in einem neuen Ordner.

Sub SplitWorkbook()
'Updateby20140612
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook
DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & xWb.Name & " " & DateString
MkDir FolderName
For Each xWs In xWb.Worksheets
    xWs.Copy
    If Val(Application.Version) < 12 Then
        FileExtStr = ".xls": FileFormatNum = -4143
    Else
        Select Case xWb.FileFormat
            Case 51:
                FileExtStr = ".xlsx": FileFormatNum = 51
            Case 52:
                If Application.ActiveWorkbook.HasVBProject Then
                    FileExtStr = ".xlsm": FileFormatNum = 52
                Else
                    FileExtStr = ".xlsx": FileFormatNum = 51
                End If
            Case 56:
                FileExtStr = ".xls": FileFormatNum = 56
            Case Else:
                FileExtStr = ".xlsb": FileFormatNum = 50
        End Select
    End If
    xFile = FolderName & "\" & Application.ActiveWorkbook.Sheets(1).Name & FileExtStr
    Application.ActiveWorkbook.SaveAs xFile, FileFormat:=FileFormatNum
    Application.ActiveWorkbook.Close False
Next
MsgBox "You can find the files in " & FolderName
Application.ScreenUpdating = True
End Sub

Schritt 3: Drücken Sie die Taste F5 Schlüssel zum Ausführen dieses Codes. Daraufhin wird ein Popup-Fenster geöffnet, in dem Sie den Speicherort der neuen exportierten Arbeitsmappen angeben können. Außerdem wurden alle Arbeitsblätter der ursprünglichen Arbeitsmappe in neue separate Arbeitsmappen exportiert, die Originalarbeitsblätter in einem neuen spezifischen Ordner benannt haben. Siehe Screenshots:

Dokumentexportblätter 7

Pfeil blaue rechte Blase Exportieren und speichern Sie Arbeitsblätter als neue Arbeitsmappe mit Kutools für Excel

Wenn mehrere Arbeitsblätter als separate Arbeitsmappe gespeichert werden müssen, kann die erste Methode keine gute Wahl sein. Und der VBA-Code ist für Excel-Anfänger vielleicht etwas kompliziert. Hier können Sie die verwenden Arbeitsmappe teilen Nutzen von Kutools for Excel um jedes Arbeitsblatt einer Arbeitsmappe schnell und einfach zu exportieren und zu speichern, um die neue Arbeitsmappe voneinander zu trennen.

Kutools for Excel, mit mehr als 300 praktische Funktionen, die Ihre Arbeit erleichtern.

Nach kostenlose Installation Kutools für Excel, gehen Sie bitte wie folgt vor:

Schritt 1: Klicken Sie auf Kutools Plus > Workbook > Arbeitsmappe teilen .... Siehe Screenshot:
Dokumentexportblätter 3

Schritt 2: In der Arbeitsmappe teilen Dialogfeld, gehen Sie wie folgt vor:

Dokumentexportblätter 4
1: Alle Arbeitsblattnamen wurden standardmäßig überprüft. Wenn Sie einige der Arbeitsblätter nicht teilen möchten, können Sie sie deaktivieren.


2: Wenn Sie vermeiden möchten, dass die ausgeblendeten oder leeren Arbeitsblätter aufgeteilt werden, können Sie das Kontrollkästchen aktivieren Überspringe versteckte Arbeitsblätter or Leere Arbeitsblätter überspringen) .;


3: und Sie können auch überprüfen Geben Sie Speichern an Format, und wählen Sie Split die Blätter dann speichern Sie als Text-Datei, PDF-Datei oder CSV-Datei, in defualt, wenn Sie diese Option nicht markieren, wird es Blätter teilen und als Arbeitsmappe speichern.

Schritt 3: Klicken Sie dann auf Teilt und wählen Sie den Ordner, in den Sie die neuen Arbeitsmappen einfügen möchten. Siehe Screenshot:
Dokumentexportblätter 6

Schritt 4: Und dann klicken Sie OK, dann jedes überprüfte Arbeitsblatt in der Arbeitsmappe teilen Das Dialogfeld wird exportiert und als einzelne Arbeitsmappe gespeichert. Jede neue Arbeitsmappe erhält den Namen des ursprünglichen Arbeitsblatts. Siehe Screenshot:
Dokumentexportblätter 5

Klicken Sie hier, um weitere Informationen zu diesem Arbeitsmappen-Tool zu erhalten.

Pfeil blaue rechte Blase Exportieren und speichern Sie jedes Blatt als neue Arbeitsmappe


Schnelles Teilen von Daten in mehrere Arbeitsblätter basierend auf Spalten oder festen Zeilen in Excel

Angenommen, Sie haben ein Arbeitsblatt mit Daten in den Spalten A bis G, der Name des Verkäufers befindet sich in Spalte A und Sie müssen diese Daten automatisch in mehrere Arbeitsblätter basierend auf der Spalte A in derselben Arbeitsmappe aufteilen, und jeder Verkäufer wird in ein neues aufgeteilt Arbeitsblatt. Kutools for Excel Aufteilungsdatum Dienstprogramm kann Ihnen helfen, schnell Daten in mehrere Arbeitsblätter basierend auf ausgewählten Spalte wie unten Screenshot in Excel gezeigt zu teilen. Klicken Sie hier, um eine kostenlose 60-Testversion mit allen Funktionen zu erhalten!
doc teilt Daten 2
Kutools for Excel: mit mehr als 300 praktischen Excel-Add-Ins, die Sie in 60-Tagen kostenlos testen können.

In Verbindung stehende Artikel:



Empfohlene Produktivitätswerkzeuge

Office Tab

Goldstern1 Bringen Sie praktische Tabs zu Excel und anderer Office-Software, genau wie Chrome, Firefox und den neuen Internet Explorer.

Kutools for Excel

Goldstern1Tolle! Steigern Sie Ihre Produktivität in 5 Minuten. Brauche keine besonderen Fähigkeiten, spare zwei Stunden pro Tag!

Goldstern1300 Neue Funktionen für Excel, machen Excel viel einfacher und leistungsfähiger:

  • Zelle / Zeilen / Spalten zusammenführen, ohne Daten zu verlieren.
  • Kombinieren und konsolidieren Sie mehrere Arbeitsblätter und Arbeitsmappen.
  • Bereiche vergleichen, Mehrere Bereiche kopieren, Text in Datum umwandeln, Einheit und Währungsumrechnung.
  • Zählen nach Farben, Paging-Zwischensummen, Erweiterte Sortierung und Super-Filter,
  • Mehr Auswählen / Einfügen / Löschen / Text / Formatieren / Verknüpfen / Kommentieren / Arbeitsmappen / Arbeitsblätter Werkzeuge ...

Screenshot von Kutools für Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    PK · 1 months ago
    How to convert this macro so that I can save it in my personal workbook and can use to where ever I need it.
    • To post as a guest, your comment is unpublished.
      Sunny · 8 days ago
      Click Developer tab > Record Macro > select Personal Macro Workbook, and give the vba a name.
      Then in Microsoft Visual Basic for Applications window, click VBAProject(PERSONA_XLSB) > Modules > double click Module1, paste the code between Sub() and End Sub, save the code.
      When you want to use the code, click Developer > Macro, choose the code you name.
  • To post as a guest, your comment is unpublished.
    Sergii · 1 months ago
    February 2019 - after some update Excel silently exits macro right after Application.ActiveWorkbook.SaveAs
    It means, that commands Application.ActiveWorkbook.Close does not run and file stays opened... Could it be fixed? This happened all the machines in our office on several workbooks that were using such kind of Macro.
  • To post as a guest, your comment is unpublished.
    Jenne · 6 months ago
    Do you have the formula to make sure that each excel sheet when saved as a new work book is in total format Comma Delimited .CSV
  • To post as a guest, your comment is unpublished.
    Jenne · 6 months ago
    Love this and another info you have on splitting data into each worksheet. However I keep getting an error when trying to upload my single reports into my system

    I needed them as a csv file so just changed the last part of the module to .csv I am wondering if I missed something else that should've been changed.

    Thanks a million
  • To post as a guest, your comment is unpublished.
    Ananda · 1 years ago
    what is the use of Worksheet.Save??