Danke für die schnelle Antwort!
Habe jetzt nur leider ein weiteres Problem..... die auskommentierte do-Schleife findet ihren Suchbegriff. Die do-Schleife der Seriennummer findet nichts, obwohl ich zu 100% sicher bin, dass die Seriennummer im Dokument vorkommt. (Sie wird ja auch nicht in Abhängigkeit des Suchbegriffs gesucht, sondern nur die Seriennnummer).
Kann es sein, dass der String genau an der Seriennummer gekappt wird? - Die Txt-Datei hat über 65.000 Zeichen - der String wird also auf mehrere Schritte gescannt. Wie kann ich verhindern, dass z.B. die Seriennummer "T-D76081287" in zwei Strings mit "T-D760" und "81287" splittet wird und somit nicht gefunden werden kann. (Hoffe das ist das Problem - anders kann ich's mir nicht erklären, da die auskommentierten Zeilen - wie ja bereits erwähnt - funktionieren)
Mein Code:
Open sFile For Input As iFile
Do Until EOF(1)
Input #iFile, sTxt
'positionSuchbegriff = InStr(positionSuchbegriff + Len(sSearchSuchbegriff), sTxt, sSearchSuchbegriff)
'If positionSuchbegriff Then
' Do Until EOF(1)
' Input #iFile, sTxt
positionSeriennummer = InStr(positionSeriennummer + Len(sSearchSeriennummer), sTxt, sSearchSeriennummer)
If positionSeriennummer And (positionSeriennummer - positionSuchbegriff) < 35 Then
i = i + 1
Sheets("Tabelle1").Cells(11 + i, 1) = maschinenname
Exit Do
End If
' Loop
'End If
Loop
Close iFile
Danke für Eure Hilfe!
Gruß,
Christoph
|