Kalenderwoche für mehrere jahre vorberechnen mit VBA

[hmm]

das hier funktioniert:

             iBlatt.Cells(zeile, 1).Select
                ActiveCell.FormulaR1C1 = "=WEEKNUM(R1C2 +" & iterKw & "*7,21)"

PS: ich mag vba nicht