Private Sub Form_Load()
 
Dim i As Integer, j As Integer
Dim LMonat
 
 
    For j = 1 To 12
 
        LMonat = DateSerial(Year(Date), j + 1, 0)
 
            For i = 1 To Format(LMonat, "d")
 
                Debug.Print i & " " & j
 
            Next
    Next
 
End Sub