auf einem Tabellenblatt existieren verschiedene ComboBoxen mit Namen "cmb1", "cmb2" usw. In jede dieser ComboBoxen möchte ich mit der AddItem methode Listenelemente hinzufügen.
Um nicht für jede ComboBox einen eigenen Programmbereich schreiben zu müssen
(
.
.
.
Sheets(1).cmb1.AddItem ...
.
.
)
, möchte ich auf jede einzelene per auflistung und For Each ... zugreifen.
Wie adressiere ich die Comboboxen jetzt korrekt, dass mir die Eigenschaften und Methoden zur Verfügung stehen? Ich versuche es derzeit über die Shapes - Auflistung und deren ControlFormat Objekt. Leider bekomme ich damit - entgegen der doku - keiner der eigenschaften und methoden des ComboBoxen zurück.
Bsp:
1 Set objCmb = Sheets(1).Shapes("cmb1").ControlFormat
2 Debug.Print objCmb.ListIndex
Zeile 1 funktioniert einwandfrei
Zeile 2 läuft auf den Fehler "Objekt unterstützt diese Eigenschaft oder Methode nicht". Auch die AddItem Methode läuft auf denselben Fehler
Habe ich einen Denkfehler?
Vielen Dank schon mal
Markus