habe in der Recherche folgenden Code gefunden....
Sub Import_TextZeile()
Dim strAct As String, strBegriff As String
strBegriff = "- SPRUNG"
Open "C:\Test\dsn" For Input As #1
Do While Not EOF(1)
Input #1, strAct
If InStr(1, strAct, strBegriff) Then
Cells(Cells(65536, 1).End(xlUp).Row + 1, 1) = strAct
Exit Do
End If
Loop
Close #1
End Sub
.... wie muß der Code aussehen wenn der Suchbegriff so bleibt, aber alle Zeilen eingelesen werden bis zur nächsten leeren Zeile in der Textdatei.
Vorab schon mal Dank für die Hilfe!!!!
Gruß Uwe