habe im Archiv nachfolgende Code gefunden, dabei werden Suchwörter aus einer
Textdatei eingelesen. Es funktioniert auch, wenn das Suchwort am
Anfang der Zeile steht. Als Beispiel: Grafikchip;10.10.2008;1;2 wird die
ganze Zeile eingelesen, wenn aber das Suchwort Grafikchip an zweiter
Stelle nach dem Semikolon z.B. 10.10.2008;Grafikchip;1;2 steht wird die Zeile nicht mehr eingelesen.
Private Sub cmdImport_Click()
Dim TextZeile$, TrennZeichen$, SuchWort$, TextArray
Dim StartZeile& 'Long
TrennZeichen = ";"
StartZeile = 1 ' erste Zeile in die Daten importiert werden
SuchWort = TextBox1.Text
Open ThisWorkbook.Path & "\Test.txt" For Input As #1
Do While Not EOF(1) ' Schleife bis Dateiende.
Line Input #1, TextZeile ' Zeile lesen.
If InStr(TextZeile, SuchWort) = 1 Then
TextArray = Split(TextZeile, TrennZeichen)
'Trennen der TextZeile (ab XL2000)
Range(Cells(StartZeile, 1), Cells(StartZeile, UBound(TextArray) + 1)) = TextArray
StartZeile = StartZeile + 1 'Zeile 1 erhöhen
End If
On Error Resume Next
Loop
Close #1 ' Datei schließen.
End Sub
Kann mir dabei geholfen werden? Wie sollte ich den Code anpassen damit der zweite
Begriff nach dem Semikolon gesucht wird?
Vielen Dank im Voraus.
Grüße