Excel: Kalenderwoche nach DIN
Problem:
Die Excel-interne Kalenderwochen-Funktion geht nach dem amerikanischen Standard, aber ich lebe in Deutschland!!
Lösung:
Hier einmal die Formel-Lösung:
Hier die VBA-Lösung:
Quelle: office-lösungen: Kalenderwoche nach DIN
Die Excel-interne Kalenderwochen-Funktion geht nach dem amerikanischen Standard, aber ich lebe in Deutschland!!
Lösung:
Hier einmal die Formel-Lösung:
=KÜRZEN((A1-DATUM(JAHR(A1+3-REST(A1-2;7));1;REST(A1-2;7)-9))/7)
Hier die VBA-Lösung:
Function kalenderwoche_din(Datum As Date) As Integer
''von Christoph Kremer, Aachen
'Berechnt die KW nach DIN 1355
Dim t&
t = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
kalenderwoche_din = (Datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1
End Function
Quelle: office-lösungen: Kalenderwoche nach DIN