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