Hallo Vba Profis,
ich habe ene Frage zu folgendem Problem.
Ich möchte gerne eine bestehende Text-Datei (.txt) mit Hilfe eines Makros auslesen und den Inhalt in eine Excel-Datei schreiben. Die Herausforderung ist, dass nicht alle Zeilen der Textdatei geschrieben werden dürfen, sondern nur die Zeilen mit dem Anfangsbuchstaben B.
Folgendes Makro habe ich geschrieben, allerdings bekomme ich das Problem mit dem Filter nicht gelöst.
Hier das Makro:
Sub text_2()
Dim FFNR As Integer
Dim Zeile As Integer
Dim textline As String
Dim Pfad As String
Pfad = Application.GetOpenFilename("TXT, *.txt", , , , False)
If Right(Pfad, 3) <> "txt" Then Exit Sub
FFNR = FreeFile
Open Pfad For Input Access Read As #FFNR
Do While Not EOF(FFNR)
Line Input #FFNR, textline
If IsNumeric(Left(textline, 1)) Then
Zeile = Zeile + 1
Cells(Zeile, 1).Value = textline
End If
Loop
Close #FFNR
End Sub
Die Struktur der Text-Datei ist folgende:
Text-Datei
some information...
B12345
B23456
H12345
B12345
some information
Wie kann ich erfolgreich einen Filter implementieren, um nur die "B-Zeilen" zu schreiben?
Viele Grüße,
Bernd
|