Schnellere Konvertierungen von Textdateien (Microsoft Excel)
Pat fragte sich, wie der Standard-Spaltendatentyp für alle Spalten einer durch Kommas getrennten Textdatei von „allgemein“ in „Text“ geändert werden kann. Das Ändern des Formats jeder Spalte, insbesondere wenn es viele davon gibt, kann bestenfalls mühsam sein.
Leider gibt es keine Möglichkeit, die Standardeinstellung zu ändern. Das Ändern der Spaltendatentypen kann jedoch viel einfacher durchgeführt werden, indem einige der in den meisten Windows-Programmen verfügbaren Auswahlfunktionen angewendet werden. Befolgen Sie diese Schritte:
-
Beginnen Sie wie gewohnt mit dem Import Ihrer durch Kommas getrennten Textdatei.
-
Wenn das Dialogfeld angezeigt wird, in dem Sie die Spaltendatentypen ändern können, wählen Sie die erste Spalte in der Tabelle aus.
-
Scrollen Sie im Dialogfeld nach rechts, damit die letzte Spalte in der Tabelle angezeigt wird.
-
Halten Sie die Umschalttaste gedrückt, während Sie auf die letzte Spalte klicken. Nun sollten alle Spalten ausgewählt sein.
-
Ändern Sie den Datentyp in Text.
-
Fahren Sie wie gewohnt mit dem Import fort.
Wenn Sie eine noch schnellere Methode zur Eingabe der Informationen aus der durch Kommas getrennten Textdatei bevorzugen, können Sie dies mithilfe eines Makros tun, wodurch die Excel-Importfilter vollständig übersprungen werden. Das folgende Makro mit dem Titel (entsprechend genug) Import führt den Trick aus:
Sub Import() Open "d:\data.txt" For Input As #1 R = 1 While Not EOF(1) 'Scan file line by line C = 1 Entry = "" Line Input #1, Buffer Length = Len(Buffer) i = 1 While i <= Length 'split string into cells If (Mid(Buffer, i, 1)) = "," Then With Application.Cells(R, C) .NumberFormat = "@" 'Text formatting .Value = Entry End With C = C + 1 Entry = "" Else Entry = Entry + Mid(Buffer, i, 1) End If i = i + 1 Wend If Len(Entry) > 0 Then With Application.Cells(R, C) .NumberFormat = "@" 'Text formatting .Value = Entry End With End If R = R + 1 Wend Close #1 End Sub
Sie sollten beachten, dass Sie die erste Zeile des Makros ändern können, um den Namen der zu importierenden Datei darzustellen. Sie sollten auch verstehen, dass dieses Makro mit den einfachsten durch Kommas getrennten Textdateien funktioniert. Wenn die Datei mit Anführungszeichen um jedes Feld erstellt wurde (wie dies manchmal der Fall ist), liefert das Makro nicht die gewünschten Ergebnisse und müsste geändert werden, um die Anführungszeichen zu kompensieren. Alternativ können Sie einfach die Anführungszeichen suchen und entfernen, nachdem das Makro die Informationen importiert hat.
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.
Dieser Tipp (7889) gilt für Microsoft Excel 2007, 2010, 2013 und 2016.
Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier: