Guten Morgen liebe Gemeinde,
ich habe folgendes Vorhaben, welches ich leider nicht in der Lage bin final umzusetzen.
Ich brauche eine Function, die mir die Kalenderwochen untereinandern in einem gewissen Format und in einer gewissen Anzahl in die aktuell markierte Zelle schreibt.
Gebe ich zum Beispiel in A1 ein =Wochen(10) dann sollen ab A1 untereinander die nächsten 10 Kalenderwochen im Format 48.2023, 49.2023 usw. ausgegeben werden.
Es liegt mir eine Function vor, die das bei z.B. nebeneinander bei Monaten macht, die aber klarerweise vorgegeben sind.
Function Monate() As Variant
Monate = Array("Jänner", "Februar", "März", "April", "Mai", "Juni", _
"July", "August", "September", "Oktober", "November", "Dezember")
End Function
Jetzt brauche ich das für die Function Wochen
Die Kalenderwoche bekomme ich von
KW = WorksheetFunction.IsoWeekNum(Now)
In einem Testmakro habe ich schon herumexperimentiert, aber das richtige Output "48.2023" ist dabei nicht rausgekommen.
KW = WorksheetFunction.IsoWeekNum(Now)
Cells(1, 1).Value = Format(Now, "d/mm/yyyy")
Cells(2, 1).Value = KW
Cells(3, 1).Value = KW & "." & Format(Now, "YYYY")
Cells(4, 1).Value = KW + 1 & "," & Format(Now, "YYYY")
Kann mir bitte jemand auf die Sprünge helfen und Hinweise geben?
Danke für eure Mühe!
liebe Grüße P.