Wie exportiert man jede Spalte in Excel in eine separate Textdatei?
In Excel ist das Exportieren eines gesamten Arbeitsblatts in eine Textdatei per „Speichern unter“ kinderleicht. Möchten Sie jedoch jede Spalte als separate Textdatei speichern, sind zusätzliche Schritte nötig. In dieser Anleitung zeigen wir Ihnen, wie Sie jede Spalte effizient einzeln per VBA-Code exportieren – oder alternativ mehrere Arbeitsblätter mithilfe von Kutools für Excel als individuelle Text-, PDF- oder CSV-Dateien speichern.
Jede Spalte in einzelne Textdatei mit VBA-Code exportieren
Mehrere Arbeitsblätter in einzelne Text-/PDF-/CSV-Dateien mit Kutools für Excel exportieren
Jede Spalte in einzelne Textdatei mit VBA-Code exportieren
Der folgende VBA-Code ermöglicht es Ihnen, die Daten jeder Spalte einzeln als Textdatei in Excel zu speichern. Gehen Sie dazu bitte wie folgt vor:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie das folgende Makro im Modul-Fenster ein.
VBA-Code: Jede Spalte in einzelne Textdatei exportieren:
Sub SaveValueToText()
Dim xFRNum, xFCNum As Long
Dim xStrDir As String
Dim xMaxR, xMaxC As Integer
Dim xCells As Range
Dim xIntX As Long
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
With xObjFD
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
xStrDir = .SelectedItems.Item(1) & Application.PathSeparator
Else
Exit Sub
End If
End With
Set xCells = ActiveSheet.Cells
xMaxR = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
xMaxC = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
For xFCNum = 1 To xMaxC
Open xStrDir & xFCNum & "_" & ActiveSheet.Cells(1, xFCNum).Text & ".txt" For Output As #1
For xFRNum = 1 To xMaxR
Print #1, Cells(xFRNum, xFCNum).Value
Next xFRNum
Close #1
Next
End Sub
3. Nachdem Sie den Code eingefügt haben, drücken Sie bitte die Taste F5, um diesen Code auszuführen. Daraufhin wird ein Browser-Dialogfeld geöffnet. Wählen Sie nun einen Ordner aus, in dem Ihre exportierte Textdatei gespeichert werden soll (siehe Screenshot):
4. Klicken Sie anschließend auf die Schaltfläche OK, und die Daten jeder Spalte des aktiven Arbeitsblatts werden einzeln in eine Textdatei exportiert (siehe Screenshot):
Mehrere Arbeitsblätter in einzelne Text-/PDF-/CSV-Dateien mit Kutools für Excel exportieren
Wenn Sie mehrere Arbeitsblätter in einzelne Text-, PDF- oder CSV-Dateien exportieren möchten, unterstützt Sie die Funktion Kutools für Excel – nämlich Arbeitsmappe trennen – dabei.
Nach der Installation von Kutools für Excel,führen Sie bitte die folgenden Schritte aus:
1. Klicken Sie auf KUTOOLS PLUS > Arbeitsmappe > Arbeitsmappe trennen (siehe Screenshot):
2. Aktivieren Sie im Dialogfeld Arbeitsmappe trennen die gewünschten Arbeitsblätter, die Sie als TXT-, PDF- oder CSV-Dateien speichern möchten. Aktivieren Sie anschließend die Option Speichern im Format, wählen Sie das gewünschte Dateiformat aus und klicken Sie auf die Schaltfläche Teilen. Wählen Sie im daraufhin angezeigten Dialogfeld Ordner durchsuchen einen Zielordner für die exportierten Dateien aus (siehe Screenshot):
3. Klicken Sie dann auf die Schaltfläche OK, und Ihre ausgewählten Arbeitsblätter werden wie gewünscht einzeln in den jeweiligen Dateityp exportiert (siehe Screenshot):
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins