Private Sub UserForm_Initialize()
Dim WochenArray(6, 1)
Dim i%, y%
    While Weekday(Date + i) <> 1
        i = i + 1
    Wend
    For i = i To 7 + i - 1
        WochenArray(y, 0) = Format(Date + i, "dd.mm.yy")
        WochenArray(y, 1) = Format(Date + i, "dddd")
        y = y + 1
    Next i
    With ListBox1
        .ColumnWidths = 50
        .List() = WochenArray
        .ListIndex = 0
    End With
End Sub

