Guten Abend,
erst mal:
Ein gesundes, zufriedenes und erfolgreiches neues Jahr, an ALLE !!!
Danke die mich bisher Unterstützt haben.
Zu meiner Frage:
In Zelle "M21" steht =Heute() Format "JJJJ"
Das Jahr also 2020 soll in Zelle O23 kopiert werden, also NUR 2020 !
so klappt es nicht:
With ActiveSheet
.Unprotect (getStrPasswort)
.Range(Format("O23"), "0000") = ActiveSheet.Range("M21") ' aktuelles Jahr von M21 nach O23
.Range(Format("O24"), "0000") = ActiveSheet.Range("M21") ' aktuelles Jahr von M21 nach O24
End With
mfg
sigrid