Array-/Objekt-probleme
25.08.2015 11:29:18
Rohfleisch
ich bin noch recht neu im VBA-Kreis und bin gerade auf ein Problem gestoßen welches mich daran hindert meinen(bisher recht wüsten) Code zu kürzen.
Das Problem ist Folgendes: Ich möchte das Array "Comboboxes" verwenden um die einzelnen Coboboxen in meiner Userform zu bestücken.
Als Antwort bekomme ich stehts die Fehlermeldung: 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 platzieren sollte, dass es funktioniert. Ich bitte um Beistand in diesen schweren Zeiten ;)
Mit freundlichen Grüßen und vielen Dank im Voraus,
Rohfleisch
hier mein Code:
Private Sub UserForm_Initialize()
Dim CellLoc As Range
Dim i As Byte
Dim Categories As Variant
Dim Comboboxes As Variant
'Namen der Comboboxen
Comboboxes = Array("NewContinent", "NewLand", "NewRegion", "NewWinegrower", "NewTaste", " _
NewVolume", "NewQuality", "NewKind", "NewGrape", "NewRegal", "NewShelf", "NewBox")
'Namen für Bereiche im aktiven Sheet
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) 'Problemkind
.AddItem CellLoc.Value
End With
Next CellLoc
Next i
End Sub