Letzte Zeile einer *.txt nach Excel auslesen
Schritt-für-Schritt-Anleitung
Um die letzte Zeile einer *.txt-Datei in Excel auszulesen, kannst du den folgenden VBA-Code verwenden. Dieser Code liest die Datei Zeile für Zeile und speichert die letzte Zeile in einer Variablen, die dann in eine Zelle geschrieben wird.
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Klicke auf
Einfügen und wähle Modul, um ein neues Modul zu erstellen.
- Füge den folgenden Code in das Modul ein:
Sub Laden()
Dim strText As String
Dim DeineDatei As String
DeineDatei = "C:\Temp\Test.txt" ' Passe den Pfad an
Open DeineDatei For Input As #1
While Not EOF(1)
Line Input #1, strText
Wend
Close #1
Range("A1").Value = strText ' Gibt die letzte Zeile in Zelle A1 aus
End Sub
- Schließe den VBA-Editor und 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
-
Seltsame Zeichen in der Ausgabe: Wenn du beim Auslesen der .txt-Datei seltsame Zeichen (z.B. "ÐÏࡱ") erhältst, könnte die Datei kein reines ASCII-Format haben. Stelle sicher, dass die Datei im richtigen Format gespeichert ist. Verwende einen Texteditor, um die Datei zu überprüfen und gegebenenfalls als reines ASCII zu speichern.
-
Vorletzte Zeile auslesen: Wenn du die vorletzte Zeile benötigst und die letzte Zeile ein bestimmtes Zeichen (z.B. "-") ausgibt, kannst du das folgende Skript verwenden:
Sub VorletzteZeile()
Dim strText As String, Vorletzte As String
DeineDatei = "C:\Temp\Test.txt" ' Passe den Pfad an
Open DeineDatei For Input As #1
While Not EOF(1)
Vorletzte = strText
Line Input #1, strText
Wend
Close #1
If strText = "-" Then strText = Vorletzte
Range("A1").Value = strText ' Gibt die letzte oder vorletzte Zeile in Zelle A1 aus
End Sub
Alternative Methoden
Falls du die Datei nicht über VBA auslesen möchtest, kannst du auch Power Query in Excel verwenden. Hier ist eine kurze Anleitung:
- Gehe zu
Daten > Daten abrufen > Aus Datei > Aus Text/CSV.
- Wähle die .txt-Datei aus und klicke auf
Importieren.
- Im Power Query-Editor kannst du die letzte Zeile auswählen und in deine Excel-Tabelle laden.
Praktische Beispiele
Hier sind einige Beispiele, wie du mit dem oben genannten VBA-Code arbeiten kannst:
- Beispiel 1: Wenn du eine Datei namens "Kontostand.txt" hast, die die letzte Zeile als Kontostand enthält, passe den Pfad in
DeineDatei an:
DeineDatei = "C:\Temp\Kontostand.txt"
- Beispiel 2: Um die vorletzte Zeile auszulesen, wenn die letzte Zeile einen bestimmten Wert hat:
If strText = "Fehler" Then strText = Vorletzte
Tipps für Profis
- Verwende Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen in deinem VBA-Code, um unerwartete Fehler abzufangen:
On Error GoTo Fehler
' Dein Code hier
Exit Sub
Fehler:
MsgBox "Ein Fehler ist aufgetreten: " & Err.Description
- Automatisiere die Ausführung: Du kannst das Makro so einrichten, dass es automatisch beim Öffnen der Datei ausgeführt wird, indem du es im
Workbook_Open-Ereignis platzierst.
FAQ: Häufige Fragen
1. Was ist die .txt bedeutung?
Die .txt-Dateiendung steht für Textdateien, die reinen Text ohne Formatierungen speichern. Sie sind einfach zu lesen und können in vielen Anwendungen geöffnet werden.
2. Wie kann ich eine .txt lesen?
Du kannst eine .txt-Datei in Excel entweder über VBA oder über Power Query lesen. Der VBA-Ansatz erlaubt mehr Kontrolle, während Power Query eine benutzerfreundliche Oberfläche bietet.