Public Function Woche(ByVal KW As Integer, _
  ByVal Jahr As Integer, _
  Optional FirstDayOfWeek As VbDayOfWeek = vbMonday, _
  Optional FirstWeekOfYear As VbFirstWeekOfYear = vbFirstFourDays _
  ) As Week
 
  Dim Datum As Date
 
  ' Datum auf den 7. Januar setzen, dem größtmöglichen
  ' Wert für den Beginn der ersten Kalenderwoche
  Datum = "07.01." & Jahr
 
  ' Wochenbeginn der ersten Kalenderwoche ermitteln
  While (Format(Datum, "WW", FirstDayOfWeek, vbFirstFullWeek) <> 1) Or _
    (Weekday(Datum, FirstDayOfWeek) <> 1)
    Datum = Datum - 1
  Wend
 
  ' Wochenbeginn der gesuchten KW ermitteln
  Datum = Datum + 7 * (KW - 1)
  Woche.von = Datum
  Woche.bis = Datum + 6
End Function