Gruppe
Dialog
Problem
Wie kann ich eine ComboBox in einer UserForm mit den Monatsnamen eines Jahres füllen?
ClassModule: frmMonate
Private Sub cmdcontinue_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim iCounter As Integer
cbomonths.Clear
For iCounter = 1 To 12
cbomonths.AddItem Format(DateSerial(1, iCounter, 1), "mmmm")
Next iCounter
cbomonths.ListIndex = 0
End Sub
StandardModule: basMain
Sub CallForm()
frmMonate.Show
End Sub