UserForm_Initialize Comboxen

[loek010]

Beste Hulpverleners

IK zou graag 14 comboboxen in een loop willen plaatsen in plaats van 14 regels om de comboboxen te vullen
de comboboxen krijgen allemaal de zelfde list range zie code

Me.ComboBox9.List = Blad2.Range("A12:A13").Value
Me.ComboBox10.List = Blad2.Range("A12:A13").Value

enzovoort tot aan ComboBox22

dus mijn vraag is hoe krijg ik dit in een soort van lus ?

 

[edmoor]

Zo:

For i = 9 To 22
    Me.Controls("ComboBox" & i).List = Blad2.Range("A12:A13").Value
Next i

 

[loek010]

Goedemiddag @Edmoor

zo simpel kan het zijn, het werkt dank je voor de snelle oplossing :thumb: