Textteil aus Zelle löschen geht nicht
18.08.2023 10:23:45
Dieter(Drummer)
mit folgendem Code soll ein Textteil, hier "AW: " gelöscht werden. Textteil wird aber nicht gelöscht. Es erfolgt kein Hinweis und ich erkenne auch keinen Fehler im Code.
Der Code wird per OptionsButton auf Userforrm ausgelöst. Der Rest des Code funktioniert prima.
Was ist im Code für das Löschen des Teiltextes falsch?
Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
Jetziger Code:
Private Sub TextTeil_raus()
ActiveCell.Replace What:="AW: ", Replacement:="" '"AW: " löschen falls schon da
Selection.ClearFormats 'Zellformate löschen
If MsgBox("Text in Blau?", vbQuestion + vbYesNo, " Markierung") = vbYes Then
Selection.Font.Color = vbBlue 'Nach AW: Resttext blau
Else
Selection.Font.ColorIndex = vbBlack
End If
Unload Me
[A4].Select
End Sub