Korrektur der Datumsrechnungen in Excel 97

Ich rechne in Excel oft mit Datumsangaben und bin dabei auf das Problem gesto▀en, da▀ die Funktion Kalenderwoche nicht ganz den in Deutschland ⁿblichen Regeln entspricht. Vor allem zwei Abweichungen st÷ren: Der erste Tag der Kalenderwoche ist nach DIN der Montag, und die erste beziehungsweise letzte Woche eines Jahres zΣhlt zu dem Kalenderjahr, in dem mindestens vier Tage dieser Woche liegen. Mit beiden Vorgaben geht die Excel-Funktion nicht konform. Kann ich sie anpassen?

Eine Anpassung an die Kalendernotation der Deutschen Industrienorm ist mit Hilfe eines kurzen VBA-Moduls m÷glich. Rufen Sie in Excel Extras û Makro û Visual-Basic Editor auf. Es ÷ffnet sich daraufhin der VBA-Editor, in dessen Menⁿzeile Sie den Befehl Einfⁿgen û Modul auswΣhlen. Das folgende Listing tippen Sie dann in das Modulfenster:

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╢