=WENN(WOCHENTAG(C2;2)=1;KALENDERWOCHE(C2;2);" ")
Die Formel kennt keine erste Woche im Jahr.Warum keine Ahnung!!
MfG
Achim H.
Function DIN_KW(Datum As Date) As Integer
' von Christoph Kremer, Aachen
Dim t&
t = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
DIN_KW = (Datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1
End Function