Excel-Problem

[Osphilia]

Hab folgendes Porblem! Ich hab ne funktion:

Function KALENDERWOCHE_DIN(datum As Date) As Integer

Dim t&

t = DateSerial(Year(datum + (8 - Weekday(datum)) Mod 7 - 3), 1, 1)

KALENDERWOCHE_DIN = (datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1

End Function

Sie zeigt mir nur für ein Datum die KW an aber ich brauch das für eine Datumspanne (wie 01.01.2005 bis 31.12.2005 )!

Wes net ob das geht!

Kann mir jemand helfen?