Suchen/Ersetzen in Standard-Feld

[Gast 123]

Hallo

mich hat interessiert ob das auch mit einem Makro geht.  Code siehe unten.  Aktuellen Bereich markieren und starten.

mfg Gast 123

Code:

Sub Datum_ändern()
Dim AC As Range
    For Each AC In Selection
       AC.Value = CStr(Left(CStr(AC), 6) & 6)
    Next AC
End Sub