Hallo,
Gibt es eine Möglichkeit, einen Befehl sooft wiederholen zu lassen, bis er alles „erledigt“ hat und danach weiter geht.
Konkret meine ich, mit
ActiveCell.Replace What:="netzvorwahl:", Replacement:="'", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Find(What:="netzvorwahl:", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
sucht er die erstbeste Zelle mit Inhalt „Netzvorwahl“ und löscht diesen Inhalt. Da es aber noch mehr Zellen mit diesem Inhalt gibt, soll sich dieser Befehl immer wiederholen. Wenn keine Zelle mit „Netzvorwahl“ mehr da ist soll er zum nächsten Befehl weitergehen.
Ich habe es schon mit 2 Makros mit demselben Befehl probiert, die sich immer wieder ablösen, bis alles geschafft ist, aber wenn nichts mehr zu finden ist, kommt sozusagen eine Fehlermeldung: „Beenden / Debuggen / Hilfe“.
Wenn da jemand eine Lösung hätte wäre ich ihm sehr dankbar.
Karsten