Ich habe auf einer UserForm u.a. eine Combobox welche ich mit den Monatsnamen des laufenden Jahres befülle.
Das Befüllen dieser Combox erreiche ich wie folgt:
Dim lngIndex As Long
For lngIndex = 0 To 12
ComboBox1.AddItem Format(DateSerial(Year(Date), Month(Date) + lngIndex, 1), "MMMM yyyy")
Next
Nun möchte ich den Code so anpassen/erweitern, dass mir bei jedem Start der UserForm in der Combobox der Folgemonat (basierend auf dem heutigen Datum) angezeigt/aktiviert wird.Was müsste ich da im Code ergänzen oder anpassen?
Vielen Dank für die Hilfe
Grüsse: Pascal