Textzeilen import, mit Filter
20.11.2002 13:32:46
Uwe
in einer Textdatei sind die Sätze durch Semikolon getrennt,
Jeder Satz beginnt mit einer Artikelnummer.
Es sollen alle Sätze (ganze Zeile) importiert werden,
die der gesuchten Artikelnummer entspricht.
Ich habe eine Version gefunden die alles einliest.
Eine Inputputbox soll die Artikelnummer abfragen.
Was muss geändert werden?
Gruss UWE
Sub AusTextDatei()
Dim introw As Integer, intcol As Integer
Dim strtxt As String
Range("A1").CurrentRegion.ClearContents
Open "c:\temp\Test.txt" For Input As #1
Do Until EOF(1)
introw = introw + 1
intcol = 0
Line Input #1, strtxt
Do Until InStr(strtxt, ";") = 0
intcol = intcol + 1
Cells(introw, intcol) = Left(strtxt, InStr(strtxt, ";") - 1)
strtxt = Right(strtxt, Len(strtxt) - InStr(strtxt, ";"))
Loop
Cells(introw, intcol + 1) = strtxt
Loop
Close
MsgBox "Habe die Daten aus c:\temp\text.txt ausgelesen!"
End Sub