Private Sub Form_Load()
 
  Dim Datum1 As Date, Datum2 As Date, i As Integer
 
  Datum1 = "24.07.2016"
  Datum2 = "22.12.2016"
  For i = KaWo(Datum1) To KaWo(Datum2)
    Combo1.AddItem CStr(i)
  Next i
 
End Sub
 
Private Function KaWo(Datum As Date) As Integer
 
  KaWo = Format$(Datum, "ww", vbMonday, vbFirstFourDays)
 
End Function

Gruss,

Zardoz