Kalenderwoche für mehrere jahre vorberechnen mit VBA

[dedlfix]

Tach!

Die Funktion soll mir alle Kalenderwochen ausgeben beginnend mit der Kalenderwoche vom 02.03.2016 Das Problem bei

for i = 0 bis 120 do KALENDERWOCHE(02.03.2016) + i

ist, dass ab der Kalenderwoche 52 bzw 53 einfach mit 54 weitergezählt wird, d.h. es wird nicht ab dem 01.01.2017 mit KW1 gerechnet sondern mit KW53 bzw KW54

Da die Kalenderwoche nicht an einem bestimmten Datum sondern einer nicht ganz so einfachen Wochentagskonstellation umschaltet, lässt sich das nicht einfach weiterzählen und dann mit 1 weitermachen. Stattdessen würde ich jeweils 7 Tage dazuzählen und von dem Datum die Kalenderwochennummer ermitteln lassen.

dedlfix.