suchen &Textzeile importieren
19.01.2005 17:34:43
Peter
wer kann helfen?
Ich möchte eine Textdatei nach einen Suchbegriff durchsuchen,
und die Zeile die den Suchbegriff enthält, unter der letzten
nichtleeren Zelle in Spalte A einfügen.
Danke Peter
Sub Import_TextZeile()
Dim strAct As String, strBegriff As String
strBegriff = "Hallo"
Open "ZeilenImport.txt" For Input As #1
Do While Not EOF(1)
Input #1, strAct
If strAct Like "*" & strBegriff & "*" Then
'Range("A1") = strAct
Exit Do
End If
Loop
Close
End Sub