ich bin leider da nicht in der Lage zu und bräuchte eure Hilfe.
In einen Bereich von B1:BJ200 soll ein Text gesucht werden (Großschreibung wichtig), der Inhalt der Zelle gelöscht und der Nachbarinhalt der beiden Zellen rechts ebenfalls gelöscht werden.
Ich hab da rudimentär sowas aus dem Makrorekorder:
Cells.Find(What:="OL", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, _
SearchFormat:=False).Activate
Selection.ClearContents
ActiveCell.Offset(0, 1).ClearContents
ActiveCell.Offset(0, 2).ClearContents
kann mir jemand daraus eine elegantere Schleife machen bitte?
Vielen vielen Dank
Christian
PS.: Schön wäre noch, wenn ich das Suchwort vorab in einem Eingabefeld festlegen könnte, da es öfter mal andere in der Tabelle sind.