auf einem Arbeitsblatt habe ich mehrere Comboboxen mit den Namen ComboBox1, ComboBox2, ...
Per Makro möchte ich alle diese Boxen mit den gleichen Werten füllen.
Anzahl = 3
For x = 1 To Anzahl
Name = "ComboBox" & x
Worksheets("INPUT").OLEObjects(Name).Clear
Worksheets("INPUT").OLEObjects("ComboBox" & x).AddItem ("Wert_A")
Worksheets("INPUT").OLEObjects("ComboBox" & x).AddItem ("Wert_B")
Worksheets("INPUT").OLEObjects("ComboBox" & x).AddItem ("Wert_C")
Worksheets("INPUT").OLEObjects("ComboBox" & x).AddItem ("Wert_D")
Next x
Das will aber nicht ... :-(
Könnt Ihr mir bei der Fehlerbehebung helfen.
Vielen Dank und viele Grüße
Peter