Als Monatsname formatiertes Datum in ComboBox eintragen
1. Element der ComboBox auswählen
Code:
Private Sub UserForm_Initialize()
Dim iCounter As Integer
For iCounter = 1 To 12
cboMonths.AddItem Format(DateSerial(1, iCounter, 1), "mmmm")
Next iCounter
cboMonths.ListIndex = 0
End Sub