Kalenderwoche eines Datums berechnen

Termine und Fristen sind oft nicht mit einem Datum versehen, sondern mit der betreffenden Kalenderwoche als Zeitangabe. Sie m÷chten daher in Excel aus einem vorgegebenen Datum die entsprechende Kalenderwoche berechnen.

Leider enthΣlt Excel keine eigene Funktion fⁿr diese Aufgabe. Sie k÷nnen sich jedoch mit Hilfe von VBA schnell eine Funktion dafⁿr definieren.
Fⁿhren Sie den Befehl ╗Extras | Makro | Makros½ aus und geben Sie zum Beispiel ╗KW½ als Makronamen ein. Nun klicken Sie auf die SchaltflΣche ╗Erstellen½ und geben anschlie▀end im VBA-Editor folgenden Programmcode ein:

Function KW(einDatum As Date) As Integer
KW = DatePart("ww" , einDatum, vbMonday, vbFirstFourDays)
End Function

Mit dem Befehl ╗Datei | Schlie▀en und zurⁿck zu Microsoft Excel½ beenden Sie den VBA-Editor. Jetzt k÷nnen Sie die Funktion ╗KW½ in der Arbeitsmappe verwenden. Hauptbestandteil der Berechnung ist die VBA-Funktion ╗DatePart½. Der Parameter ╗vbMonday½ fixiert den Montag als ersten Tag der Woche. Der folgende Parameter ╗vbFirstFourDays½ legt fest, dass die erste Kalenderwoche eines Jahres diejenige ist, die mindestens vier Tage enthΣlt.
Sie k÷nnen diese Berechnung auch ohne VBA-Script l÷sen, wenn Sie stattdessen die nachstehende Formel in Ihrem Arbeitsblatt verwenden:

=GANZZAHL(((C4-DATUM(JAHR(C4) ;1;1) +
WOCHENTAG(DATUM(JAHR (C4);1;1);3))/7) + WENN
(WOCHENTAG(DATUM(JAHR(C4);1;1);3)<4;1;0)

Im Beispiel steht das gegebene Datum in Zelle ╗C4½. Der erste Teil der Formel ermittelt die Tage seit Jahresanfang. Der zweite Teil korrigiert diesen Wert so, dass er fⁿr jeden Montag durch sieben teilbar ist und kein Rest bleibt. Die Division durch sieben liefert nun die Kalenderwoche. Der letzte Summand sorgt schlie▀lich dafⁿr, dass die erste Kalenderwoche mindestens vier Tage enthΣlt.
Eine angebrochene Woche am Jahresanfang ist nach dieser Formel die Kalenderwoche 0. Die VBA-Methode liefert hingegen die letzte Kalenderwoche des Vorjahres.