Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

ComboBox mit Monatsnamen füllen

Gruppe

ComboBox

Problem

Wie kann ich eine ComboBox in einer UserForm mit den Monatsnamen eines Jahres füllen?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

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