HI, habe folgenden Code
gebastelt aber er läuft leider nicht
Ich will den Text in einer Textdatei suchen lassen
(Textdatei ist offen)
Start = "Adressen:"
Suche = ";;;;;;;;;;"
If InStr(Start, ";;;;;;;;;;") Then
'Er soll die 10x ";" löschen
End If
Wiedermal besten Dank
F.H.