Einzelnes Tabellenblatt abspeichern

Ein einzelnes Tabellenblatt abspeichern und sofort als eigene Arbeitsmappe nutzen, genau das leistet das folgende Excel VBA Makro. Sie geben lediglich Blattname und Dateiname ein, der Rest erfolgt automatisch. So erstellen Sie schnell teilbare Berichte, senden nur relevante Daten und behalten die Kontrolle über Versionen und Speicherort.

Was bedeutet einzelnes Tabellenblatt abspeichern?

Das Makro kopiert ein vorhandenes Tabellenblatt in eine neue Arbeitsmappe und speichert diese als separate Datei. In der ersten Variante geben Sie den Blattnamen explizit ein, in der zweiten Variante wird das aktuell aktive Tabellenblatt verwendet. Beide Wege führen zu einer neuen Datei, die nur das gewünschte Blatt enthält.

Voraussetzungen und Hinweise zum Speicherort

Die neue Datei wird standardmäßig im Ordner gespeichert, der in Excel unter Extras, Optionen, Speichern hinterlegt ist. Wenn Sie einen anderen Speicherort benötigen, geben Sie im Dateinamen den vollständigen Pfad mit an, zum Beispiel C:\Berichte\Umsatz_2026.xlsx. Achten Sie darauf, die gewünschte Dateiendung wie xlsx oder xlsm direkt mit einzugeben, damit das Format eindeutig ist.

Schritt für Schritt zur neuen Arbeitsmappe

Variante 1 Blattname abfragen

1. Öffnen Sie die Arbeitsmappe mit dem gewünschten Blatt.
2. Starten Sie das Makro.
3. Geben Sie den exakten Namen des Tabellenblatts ein.
4. Geben Sie den Dateinamen ein, idealerweise mit vollständigem Pfad und Dateiendung.
5. Bestätigen Sie, das Blatt wird in einer neuen Arbeitsmappe gespeichert und diese wird geschlossen.

Sub BlattSpeichern()
On Error GoTo fehlermeldung
Dim TBName$, WBName$
TBName = InputBox("Welches Tabellenblatt soll gespeichert werden?" & Chr(13) & _
"Bitte den Blattnamen eingeben:")
If TBName = "" Then Exit Sub
WBName = InputBox("Unter welchem Dateinamen soll das Tabellenblatt gespeichert werden?" & Chr(13) & _
"Bitte den Dateinamen eingeben:")
If WBName = "" Then Exit Sub
Worksheets(TBName).Copy
ActiveWorkbook.SaveAs WBName
ActiveWorkbook.Close
Exit Sub
fehlermeldung:
MsgBox "Es ist ein Fehler aufgetreten!"
End Sub

Variante 2 aktives Blatt speichern

Diese Variante speichert das aktuell aktive Tabellenblatt, ohne dass Sie den Blattnamen eingeben. Wechseln Sie zuerst auf das gewünschte Blatt, starten Sie dann das Makro und geben Sie nur noch den Dateinamen ein.

Sub BlattSpeichern2()
On Error GoTo fehlermeldung
Dim TBName$, WBName$
TBName = ActiveSheet.Name
WBName = InputBox("Unter welchem Dateinamen soll das Tabellenblatt gespeichert werden?" & Chr(13) & _
"Bitte den Dateinamen eingeben:")
If WBName = "" Then Exit Sub
Worksheets(TBName).Copy
ActiveWorkbook.SaveAs WBName
ActiveWorkbook.Close
Exit Sub
fehlermeldung:
MsgBox "Es ist ein Fehler aufgetreten!"
End Sub

Praxisbeispiele und sinnvolle Dateinamen

Vergeben Sie sprechende Dateinamen, damit Inhalte später schnell auffindbar sind. Beispiele sind Bericht_Q2_2026.xlsx oder Kunde_Mueller_Auswertung.xlsx. Wenn Sie außerhalb des Standardordners speichern möchten, ergänzen Sie den vollständigen Pfad, zum Beispiel C:\Projekte\Reporting\Bericht_Q2_2026.xlsx. Geben Sie die Dateiendung stets mit an, damit das gewünschte Dateiformat verwendet wird.

Typische Fehlerquellen und Lösungen

Falscher Blattname: Prüfen Sie Schreibweise, Groß und Kleinschreibung sowie vorhandene Leerzeichen. Ungültiger Dateiname oder unzulässige Zeichen: Entfernen Sie Zeichen wie Doppelpunkte oder Schrägstriche. Fehlende Dateiendung: Ergänzen Sie xlsx oder xlsm im Dateinamen. Keine Schreibrechte im Zielordner: Wählen Sie einen Ordner mit Berechtigungen aus. Datei existiert bereits: Vergeben Sie einen neuen Namen oder verschieben Sie die bestehende Datei. Leere Eingaben in der Abfrage: Brechen Sie den Vorgang nicht ab, geben Sie die erforderlichen Werte ein.

Tipps für den Einsatz in der Praxis

Arbeiten Sie mit sinnvoller Versionierung, zum Beispiel durch Datum im Dateinamen wie Auswertung_2026-05-08.xlsx. Speichern Sie Berichte in einem zentralen Projektordner, damit das Team konsistent zugreift. Nutzen Sie die Variante mit aktivem Blatt, wenn Sie Tippfehler beim Blattnamen vermeiden möchten. Testen Sie den Ablauf zunächst mit Kopien Ihrer Dateien, um unbeabsichtigte Änderungen an Produktionsdateien zu vermeiden.

Fazit

Mit dem Makro Einzelnes Tabellenblatt abspeichern erzeugen Sie schnell und zuverlässig eine neue Arbeitsmappe aus genau einem Blatt. Die Variante mit Blattname und die Variante mit aktivem Blatt decken beide Anwendungsfälle ab. Mit klaren Dateinamen, korrekt gesetzter Dateiendung und bekanntem Speicherort erreichen Sie einen reibungslosen und nachvollziehbaren Prozess.