Option Explicit
Private Sub cmb_Monate_Change()
Caption = "Sie haben den " & cmb_Monate.Value & " gewählt!"
End Sub
Private Sub cmb_Tage_Change()
Caption = "Sie haben den " & cmb_Tage.Value & " gewählt!"
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 12
Me.cmb_Monate.AddItem MonthName(i)
Next i
For i = 1 To 7
Me.cmb_Tage.AddItem WeekdayName(i)
Next
Me.cmb_Monate.ListIndex = Month(Date) - 1
Me.cmb_Tage.ListIndex = Weekday(Date, vbUseSystemDayOfWeek) - 1
Caption = "Sie haben den " & cmb_Tage.Value & " gewählt!"
End Sub