Code review

[Mitness]

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?  

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

[RPP63]

Moin!
Bei diesen homöopathischen Dosen wird die .AddItem-Methode reichen.
Für die anderen, denen es auf Millisekunden ankommt, gibt es eine hervorragende Seite:
https://www.snb-vba.eu/VBA_Fill_combobox...ox_en.html

Gruß Ralf

[Mitness]

Perfekt, danke für die Seite!