Wert aus Textdatei mit mehreren Spalten lesen
SteffenS
ich haben folgenden Code
Sub test()
'Textdatei öffnen
Dim afile As String, astring As String
afile = ThisWorkbook.Path & "\system\" & "aplz"
Open afile For Input As #1 ' Datei öffnen.
Do While Not EOF(1)
Line Input #1, astring
Loop
Close #1
End Sub
Spalte1;Spalte2;Spalte3;Spalte4;Spalte5;Spalte6
Ich möchte nun in der Textdatei in Spalte 2 nach einer Zahl suchen z.B.: 99999
Wird dieser Wert gefunden soll in eine Variable der Wert in Spalte 6 eingelesen werden.
Wie kann ich die Suche und das Setzen des Wertes erreichen?
Danke Euch schonmal
Steffen Schmerler
Anzeige