ich benötige wieder einmal dringend eure Hilfe.
In der aktiven Zelle steht ein Wert z. B. "Dr. Test".
Wie kann ich aus dieser Zelle per VBA "Dr. " entfernen.
Besten Dank für eure Hilfe.
Gruss
Peter
Sub ReplaceTest2()
Dim sText As String
sText = ActiveCell
MsgBox sText
MsgBox Replace(sText, "Dr. ", "")
ActiveCell = Replace(sText, "Dr. ", "")
End Sub
Wünsche Dir noch einen schönen Tag.ActiveCell.Replace "Dr. ", "", LookAt:=xlPart
fehlt die Angabe für LookAt und beim letzten Suchen/Ersetzen war die Option "Gesamten Zellinhalt vergleichen" aktiv, (entspricht: LookAt:=xlWhole) kann das Ersezten natürlich nicht ausgeführt werden.