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)¶Erhalten Sie beim Speichern des Moduls die Fehlermeldung Listentrennzeichen erwartet, dann tauschen Sie die beiden Kommata in der Zeile t = gegen das Listentrennzeichen aus, das in der Systemsteuerung unter Ländereinstellung – Zahlen als solches angegeben ist.
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¶