Kalenderwoche von..bis

Mitunter ist es der Wun­sch, in eine (1) Zelle den Beginn und das Ende der Kalen­der­woche eines gegebe­nen Datums zu schreiben. Eine reine Formel­lö­sung wird etwas „aus­gedehn­ter” sein, weil am Jahre­sende und Jahres­be­ginn der numerische Wert der Kalen­der­woche nicht immer zu dem entsprechen­den Jahr „passt”. So ist der 2.1.2016 die 53. Kalen­der­woche des Jahres 2015, ähn­liche Phänomene treten auch am Jahre­sende auf, dass der 30. Dezem­ber schon zur Kalen­der­woche 1 des Fol­ge­jahres gehört.

Wie gesagt, es gibt einen Formel­lö­sung, Ansätze find­en Sie bei Excelformeln. Ich ziehe da eine „schlanke” UDF vor:

Option Explicit

Function Kalender_Woche(Datum As Date) As String
'Die gesamte Kalenderwoche (Mo-So) eines gegebenen Datums
'Ausgabe: TT.MM.JJJJ - TT.MM.JJJJ, siehe Var DFormat
   Dim Montag As Date, DFormat As String
   
   DFormat = "DD/MM/YYYY"
   Montag = Datum - WorksheetFunction.Weekday(Datum, 3)
   Kalender_Woche = Format(Montag, DFormat) & " - " & Format(Montag + 7, DFormat)
End Function

Falls Sie Hil­fe bein Ein­binden der Benutzerdefinierten Funk­tion brauchen, schauen Sie ein­fach hier im Blog nach.