Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Kalenderwoche nach DIN 1355

Gruppe

Numerisch

Problem

Die Excel-Funktion =KW() liefert nicht die Kalenderwoche nach DIN 1355, wie errechnet sich diese?

Lösung
Die Formel: =KÜRZEN((A2-WOCHENTAG(A2;2)-DATUM(JAHR(A2+4-WOCHENTAG(A2;2));1;-10))/7) - Nachfolgend als benutzerdefinierte Funktion:

StandardModule: basMain

Function ISOWeek(dat As Date) As Integer
   Dim dbl As Double
   With WorksheetFunction
      ISOWeek = Fix((dat - .WeekDay(dat, 2) - _
         DateSerial(Year(dat + 4 - _
         .WeekDay(dat, 2)), 1, -10)) / 7)
   End With
End Function