HERBERS Excel-Forum - die Dialoge

Thema: Mit Monatsnamen füllen

Home
Eine ComboBox wird mit den 12 Monatsnamen gefüllt Mit Monatsnamen füllen
  • Prozedur: UserForm_Initialize
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Mit Monatsnamen füllen
  • Ablaufbeschreibung:
    • Variablendeklaration
    • Schleife über 12 Monate bilden
    • 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