Zahlen in Textdatei suchen
22.09.2006 09:00:32
uwe
ich habe eine Textdatei in der in einer Zeile 2 Werte stehen
z.B
1,1;1,6989
1,2;1,2365
1,4;1,6566
immer durch Semikolon getrennt.
Ein Makro soll den Wert zb. 1,4 in der
Tabelle suchen und dann den Wert 1,6566 finden.
Mit folgendem Makro komme ich nicht ganz zurecht:
Es findet keine Zahlen
Sub TextImport()
Dim iFile As Integer
Dim sSearch As String, sTxt As String
Dim sFile As String
If Dir(sFile) = "" Then
Beep
MsgBox "Sie müssen zuerst eine Textdatei anlegen!"
Exit Sub
End If
iFile = FreeFile
sFile = "r:\test\werttabelle.csv"
sSearch = "1,4"
Open sFile For Input As iFile
Do Until EOF(1)
Input #iFile, sTxt
If InStr(sTxt, sSearch) Then
Range("A1") = "Gefunden: " & sTxt
Exit Do
End If
Loop
Close iFile
End Sub
Gruss
Uwe
Anzeige