Gibt es eine Formel, wenn ich z.B. in Zelle A1 das Datum eingebe, die mir in Zelle B1 die Kalenderwoche zeigt. Und auch umgedreht wenn ich Zelle z.B. in Zelle B1 die Kalenderwoche schreibe, das dann in Zelle B2 die Woche genannt wird.
Function KalWo(d As Date) As Integer
Dim Don As Date
Dim Jahr As Integer
Dim Wochen As Integer
Don = d - Weekday(d, vbMonday) + 4
Jahr = Year(Don)
Wochen = ((Don - DateSerial(Jahr, 1, 1)) \ 7) + 1
KalWo = Wochen
End Function