18.09.2022, 19:06
Grüßt euch liebe Excel-Community, 
ich befülle die drei Komboboxen meiner Userform mit Tage, Monate und aktuelles Jahr bis drei Jahre in die Vergangenhheit.
Mit meiner aktuellen Lösung bin ich zufrieden, nur frage ich mich, ob es nicht noch eine performantere Lösung gibt?
ich befülle die drei Komboboxen meiner Userform mit Tage, Monate und aktuelles Jahr bis drei Jahre in die Vergangenhheit.
Mit meiner aktuellen Lösung bin ich zufrieden, nur frage ich mich, ob es nicht noch eine performantere Lösung gibt?
Code:
Option Explicit
Private Sub UserForm_Initialize()
Dim lngCounterA As Long
For lngCounterA = 1 To 31
cbo_day.AddItem lngCounterA
Next lngCounterA
For lngCounterA = 1 To 12
cbo_month.AddItem lngCounterA
Next lngCounterA
For lngCounterA = Year(Date) - 3 To Year(Date)
cbo_year.AddItem lngCounterA
Next lngCounterA
End Sub