Ich suche in einer Zelle B3 den Begriff "Herr" oder "Frau". Dieser soll dann aus der Zelle gelöscht werden. Wie mache ich das?
Danke schon mal!
Sub tt()
Dim Eingabe As String
Dim Ersatz As String
Eingabe = InputBox("Bitte zu ersetzenden Text eingeben...")
Ersatz = InputBox("Bitte neuen Text eingeben...")
Range("B3").Replace What:=Eingabe, Replacement:=Ersatz, LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
Gruß aus dem Sauerland
Jens