Gruppe
DatumZeit
Bereich
Kalender
Thema
Dynamischer Kalender mit Jahr, Quartal und Monaten
Problem
In Zeile 1 soll das jeweilige Jahr, in Zeile 2 das Quartal und in Zeile 4 der Monat eingetragen werden. Der Kalender soll dynamisch und durch den Zellwert in Zelle A4 bedingt sein.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Function Quartal(dat As Date)
Quartal = Format(dat, "q") & "Q"
End Function