AW: Kalenderwoche mit Versatz
Stefan
Es ginge auch per Makro:
Function deutsche_Kalenderwoche(dat As Date) As Integer
'Wandelt einen Datumswert in die Kalenderwoche nach DIN 1355 um.
Dim a As Integer
a = Int((dat - DateSerial(Year(dat), 1, 1) + ((Weekday(DateSerial(Year(dat), 1, 1)) + 1) Mod 7) _
- 3) / 7) + 1
If a = 0 Then
a = deutsche_Kalenderwoche(DateSerial(Year(dat) - 1, 12, 31))
ElseIf a = 53 And (Weekday(DateSerial(Year(dat), 12, 31)) - 1) Mod 7 <= 3 Then
a = 1
End If
deutsche_Kalenderwoche = a
End Function
Wenn man das als add-inn einfügt, dann steht dies als neue Funktion zur Verfügung.
Habe das aus irgend einem VBA-Buch entnommen und in meinem excel umgesetzt. Funktioniert tadellos.
Gruß
Stefan