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
|