Hi,
wenn ich den Code ausführe:
...
iFile = FreeFile
sFile = AlteDatei
sSearch = "DATUM"
Open sFile For Input As iFile
For cnt = 1 To 30
Input #iFile, sTxt
If InStr(sTxt, sSearch) Then
MsgBox "gefunden: " & sTxt
Exit For
End If
Next cnt
Close iFile
...
bekomme ich ja die Fundzeile. Ich möchte aber den Begriff suchen und die nächste Zeile speichern. Wie mache ich das am besten?
Gruß Andi