(Tipp 88)
![Nachricht zum Beitrag an Autor Nachricht zum Beitrag an Autor](sitegrafik/icon_direktnachricht.jpg)
![Nach oben Nach oben](sitegrafik/icon_oben.jpg)
Wie kann man eine ComboBox in einer UserForm mit den Monatsnamen eines Jahres füllen?
Für jeden Monat wird ein beliebiges (aber in jedem Monat vorhandenes, also nicht der 31.) Datum erzeugt, das dann per Datumsformat in die Box eingetragen wird. Das Jahr spielt dabei keine Rolle, da es nur um den Monat geht.
Private Sub UserForm_Initialize() Dim intI As Integer ComboBox1.Clear For intI = 1 To 12 ComboBox1.AddItem Format(DateSerial(1998, intI, 1), "MMMM") Next intI ComboBox1.ListIndex = 0 End Sub