Mehrere Tabellenblätter in CSV exportieren
Schritt-für-Schritt-Anleitung
Um mehrere Tabellenblätter in eine CSV-Datei zu exportieren, kannst Du das folgende VBA-Makro verwenden. Es wurde entwickelt, um alle Blätter eines Arbeitsbuchs einzeln als CSV-Datei zu speichern.
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Wähle
Einfügen > Modul, um ein neues Modul zu erstellen.
-
Füge den folgenden Code in das Modul ein:
Sub ExportSheetsToCSV()
Dim xWs As Worksheet
Dim xcsvFile As String
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Copy
xcsvFile = CurDir & "\" & xWs.Name & ".csv"
Application.ActiveWorkbook.SaveAs Filename:=xcsvFile, _
FileFormat:=xlCSV, Local:=True, CreateBackup:=False
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
Next
End Sub
- Schließe den VBA-Editor und kehre zu Excel zurück.
- Führe das Makro aus, um alle Tabellenblätter als CSV-Dateien zu exportieren.
Stelle sicher, dass Du die Option Local:=True im SaveAs-Befehl verwendest, um das Semikolon als Trennzeichen in der CSV-Datei zu erhalten.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn Du keine VBA-Lösungen verwenden möchtest, kannst Du die Tabellenblätter auch manuell als CSV speichern:
- Wähle das gewünschte Tabellenblatt aus.
- Gehe zu
Datei > Speichern unter.
- Wähle den Dateityp
CSV (Comma delimited) (*.csv) und speichere die Datei.
- Wiederhole diesen Vorgang für jedes Tabellenblatt.
Beachte, dass diese Methode zeitaufwendig sein kann, insbesondere wenn Du mehrere Tabellenblätter hast.
Praktische Beispiele
Angenommen, Du hast ein Excel-Dokument mit den Tabellenblättern "Januar", "Februar" und "März". Mit dem oben angegebenen VBA-Code kannst Du alle diese Blätter in separate CSV-Dateien exportieren:
- Januar.csv
- Februar.csv
- März.csv
Alle diese Dateien werden im aktuellen Verzeichnis gespeichert und verwenden das Semikolon als Trennzeichen, wenn Du die Local:=True-Option verwendest.
Tipps für Profis
-
Wenn Du die CSV-Dateien nach dem Export in einem bestimmten Ordner speichern möchtest, kannst Du den CurDir-Befehl durch einen spezifischen Pfad ersetzen:
xcsvFile = "C:\DeinOrdner\" & xWs.Name & ".csv"
-
Du kannst auch die Excel-Funktion Suchen in allen Tabellenblättern verwenden, um spezifische Daten zu finden, bevor Du den Export startest.
FAQ: Häufige Fragen
1. Frage
Wie kann ich sicherstellen, dass die CSV-Dateien das richtige Trennzeichen verwenden?
Antwort: Verwende die Option Local:=True im SaveAs-Befehl, um das Semikolon als Trennzeichen zu erhalten.
2. Frage
Kann ich auch nur bestimmte Tabellenblätter exportieren?
Antwort: Ja, Du kannst die For Each-Schleife anpassen, um nur spezifizierte Blätter zu exportieren, indem Du Bedingungen hinzufügst.