Combobox oproepen met variabele

[bartholvoet]

Ik heb een reeks comboboxen (van combobox1 -> combobox 10) en zou die graag opvullen met een for lus. Ik vind echter niet hoe ik die variabele aan de naam van de combobox kan koppelen. Of is een dergelijke bewerking niet mogelijk?

for i=1 to 10 step 1

combobox ?? i.additem .....

next

Bedankt en groeten!

 

[ReneDirks]

AddItem werkt niet in VBA. Bedoel je wellicht VB(6)?

 

[bartholvoet]

Ik gebruik Additem om mijn combobox op een userform (in excel) op te vullen.
De excel-versie is 2003... .

Groeten,

 

[ReneDirks]

Ah okay, wist niet dat het excel was (ga altijd maar uit van Acces). IN VB6 kun je dan heel leuk een control array gebruiken, maar dat ondersteunt VBA/Excel ook weer niet. Dus een niet zo'n mooie oplossing, maar zou wel moeten werken:

Dim i as integer
Dim strControl as string
dim cb as combobox

For i=1 to 10
strControl = "ComboBox" & cstr(i)
set cb = me.Controls(strControl)
cb.additem ""
next

 

[bartholvoet]

Schitterend! Het werkt!

Kan je dit met andere elementen zoals textboxen... ook?

Bedankt en groeten!

 

[ReneDirks]

Yep, en je kunt dus bv ook zoiets doen:

for each ctl in me.controls
   if mid(ctl,1,5) = "Combo" then
     'code
   end if
next

Zet je de vraag nog even op opgelost?