Hi markusjbear,
try this
Private Sub UserForm_Initialize()
zDate = Date
FillArrays zDate
End Sub
Sub FillArrays(zDate)
Dim MyYear%, MyMonth%, MyWeekDay%, MyCountDay%
Dim cnt&, i&, j&
MyYear = Year(zDate): MyMonth = Month(zDate)
MyWeekDay = Weekday(DateSerial(MyYear, MyMonth, 1))
MyCountDay = Day(DateSerial(MyYear, MyMonth + 1, 1) - 1)
cnt = 2 - MyWeekDay
For i = 1 To 6
For j = 1 To 7
If cnt >= 1 And cnt <= MyCountDay Then
Me.Controls("d" & i & j).Caption = cnt
Else
Me.Controls("d" & i & j).Caption = ""
End If
cnt = cnt + 1
Next j
Next i
End Sub
Bookmarks