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.Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen