Kalenderwoche
10.06.2002 15:37:59
Stefan F.
In Spalte B gebe ich das Datum ein und in Spalte A soll die KW erscheinen.
Über die Recherche bin ich auf den Code für die KW-Berechnung gestoßen.
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
Wie aber muss ich die Spalte B in dem Code berücksichtigen, dass automatisch nach Datumseingabe die KW berechnet wird?
Danke vielmals vorab!
Gruß
Stefan