Hallo liebe VBA-Freunde,

ich bin noch recht neu im VBA-Kreis und bin gerade auf ein Problem gestoßen welches mich daran hindert meinen Code zu kürzen.
Das Problem ist folgendes: Ich möchte das Array Comboboxes verwenden um die einzelnen Coboboxes in meiner Userform zu bestücken.
Als Antwort bekomme ich stehts die Nachricht: Methode oder Datenobjekt nicht gefunden. Klar ist mir bereits, dass ich das Array
in der Objektzeile scheinbar nicht so platzieren darf. Unklar ist wie ich es dann lösen kann.
Ich bitte um Beistand in diesen schweren Zeiten ;)

MFG,
Rohfleisch


Private Sub UserForm_Initialize()
    Dim CellLoc As Range
    Dim i As Byte
    Dim Categories As Variant
    Dim Comboboxes As Variant
    Comboboxes = Array("NewContinent", "NewLand", "NewRegion", NewWinegrower, NewTaste, NewVolume, NewQuality, NewKind, NewGrape, NewRegal, NewShelf, NewBox)
    Categories = Array("Kontinente", "Länder", "Regionen", "Winzer", "Geschmack", "Volumen", "Qualität", "Sorten", "Rebsorten", "Regale", "Fächer", "Boxen")
    
    For i = 0 To 11
        For Each CellLoc In Range(Categories(i))
            With NewVino.Comboboxes(i)
                    .AddItem CellLoc.Value
            End With
        Next CellLoc
    Next i
End Sub