Möchte über VBA aus einem Datum die Kalenderewoche berechnen, dazu benutze ich folgende Formel/Funktion(im Forum gefunden):
Function KWoche(d As Date)
Dim t As Long
t = DateSerial(Year(d + (8 - Weekday(d)) Mod 7 - 3), 1, 1)
KWoche = ((d - t - 3 + (Weekday(t) + 1) Mod 7)) \ 7 + 1
End Function
Das Ergebnis soll dann per:
NewBook.Worksheets("1").Range("B8").Value = KWoche(Datum)
In die besagte Zelle B8 geschrieben werden!
Excel/VBA trägt mir dies auch ein, aber wenn ich als Datum z.B. 01.02.2002 übergebe wird in die Zelle 18.02.1900 eingetragen!
Was ist an meiner Funktion falsch?????????
Danke im Vorraus!