Aktuelles Datum mit KW in Label zeigen
05.06.2020 14:33:52
Dieter(Drummer)
Mit folgendem Makro, s. unten, kann ich das aktuelle Datum - leider nur als Zahl - und die entsprechende Kalenderwoche in Zelle eintragen.
Problem 1) Das aktuelle Datum soll in Label22, auf Userform und die entsprechende KW - 2stellig - angezeigt werden.
Problem 2) Das aktuelle Datum soll als Datum "DDD DD.MM.YYYY" erscheinen.
Mit dem Datum im Label22 habe ich es geschafft:
Ich schaffe es nicht. zum aktuellen Datum auch die entsprechende KW im Labell22 zu zeigen.
Mit der Bitte um Hilfe,
grüßt, Dieter(Drummer)
Mustercode, der aber Datum - als Zahl - und KW in Zelle zeigt:
Sub Datum_KW()
ActiveCell.FormulaR1C1 = "=TODAY() & "" KW: ""& TRUNC((TODAY()-WEEKDAY(TODAY(),2)+11-(""1/"" _
&YEAR(TODAY()+4-WEEKDAY(TODAY(),2))))/7)"
End Sub