Tabellenblätter einzeln speichern in Excel
Schritt-für-Schritt-Anleitung
Um Excel-Tabellenblätter in einzelne Dateien zu speichern, kannst Du das folgende VBA-Makro verwenden. Dieses Makro speichert jedes Tabellenblatt (außer der angegebenen Ausnahmen) als separate Excel-Datei im gleichen Ordner wie die ursprüngliche Arbeitsmappe.
- Öffne Deine Excel-Datei und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Klicke auf
Einfügen und dann auf Modul, um ein neues Modul zu erstellen.
- Kopiere und füge den folgenden Code in das Modul ein:
Public Sub Blätter_speichern()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "Tabelle1", "Tabelle5" ' ausgenommene Blätter
' nix machen
Case Else
ws.Copy
Application.DisplayAlerts = False
ActiveSheet.SaveAs ThisWorkbook.Path & "\" & ws.Name & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
ActiveWorkbook.Close False
End Select
Next ws
Application.ScreenUpdating = True
End Sub
- Schließe den VBA-Editor und gehe zurück zu Excel.
- Führe das Makro aus, indem Du
ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.
Häufige Fehler und Lösungen
-
Fehler "Microsoft Visual Basic for Applications Meldung 400": Dieser Fehler kann auftreten, wenn das Makro auf ein nicht existentes Blatt zugreifen möchte. Überprüfe, ob die Blätter, die Du ausschließen möchtest, tatsächlich existieren und ob die Namen exakt übereinstimmen.
-
Excel-Version: Stelle sicher, dass Du eine kompatible Excel-Version verwendest, die Makros unterstützt (z.B. Excel 2010 oder neuer).
Alternative Methoden
Wenn Du keine VBA-Makros verwenden möchtest, kannst Du die einzelnen Tabellenblätter manuell speichern:
- Klicke mit der rechten Maustaste auf das Tabellenblatt, das Du speichern möchtest.
- Wähle
Verschieben oder Kopieren.
- Wähle
Neue Arbeitsmappe aus und klicke auf OK.
- Speichere die neue Arbeitsmappe an einem gewünschten Ort.
Diese Methode ist jedoch zeitaufwendiger, wenn Du mehrere Blätter hast.
Praktische Beispiele
-
Beispiel 1: Du hast eine Arbeitsmappe mit fünf Blättern und möchtest die Blätter Umsatz, Kosten, und Gewinn als separate Dateien speichern. Benutze das oben genannte Makro und passe die Select Case-Anweisung entsprechend an.
-
Beispiel 2: Wenn Du die Blätter Januar, Februar und März hast und nur Januar speichern möchtest, kannst Du den Code so anpassen:
Select Case ws.Name
Case "Februar", "März" ' ausgenommene Blätter
Tipps für Profis
-
E-Mail-Versand: Wenn Du die einzelnen Dateien direkt per E-Mail versenden möchtest, kannst Du das Makro erweitern, um die Dateien automatisch zu versenden.
-
Automatisierung: Kombiniere das Speichern mit einer automatisierten Datenerfassung, um die Effizienz zu steigern.
-
Backup: Bevor Du das Makro ausführst, erstelle eine Sicherungskopie Deiner Arbeitsmappe, um Datenverlust zu vermeiden.
FAQ: Häufige Fragen
1. Kann ich das Makro anpassen, um nur bestimmte Blätter zu speichern?
Ja, Du kannst die Select Case-Anweisung entsprechend anpassen, um nur die gewünschten Blätter zu speichern.
2. Welche Excel-Version benötige ich für das Makro?
Das Makro funktioniert in Excel 2010 und neuer, solange Du die Makros aktiviert hast.
3. Wie kann ich die Namen der gespeicherten Dateien anpassen?
Ändere die Zeile ActiveSheet.SaveAs, um den gewünschten Dateinamen zu definieren. Du kannst auch zusätzliche Informationen wie Datum oder Zeit hinzufügen.