Meerdere comboboxen tegelijk vullen

[Neuz]

Hey allemaal,

Ik ben bezig met een userform te maken waarin een groot aantal comboboxen staan.
Het is belangrijk dat je in al deze comboboxen dezelfde opties kunt kiezen.
Is er een manier om niet alle .additem handmatig weg te hoeven scripten.

Het huidige script is als volgt:

With Combobox1
        .AddItem "Test 1"
        .AddItem "Test 2"
End With

With Combobox2
        .AddItem "Test 1"
        .AddItem "Test 2"
End With

Ik zou graag zien dat het stukje additem in een range op een worksheet staat
en dat ik niet voor elke combobox (alle opvolgende nummers) een nieuwe With
hoef aan te maken.

Is dit uberhaupt mogelijk, en zou iemand me hiermee kunnen/willen helpen?

Alvast bedankt voor de moeite.

Groet Neuz

 

[snb]

Staat hier:

http://www.snb-vba.eu/VBA_Fill_combobox_listbox.html

 

[Neuz]

Beste snb,

Ik heb even gekeken op de link welke je gestuurd heb alleen naar mijn idee werkt
dit alleen maar met 1 combobox tegelijk. Ik wil graag alle comboboxen (opvolgende
nummering) tegelijk met dezelfde range gevuld hebben.

Groet Neuz

 

[snb]

sub M_snb()
   with combobox1
      .list=sheet1.range("A1:K10").value
      for j=2 to 10
       Me("combobox" & j).List=.list
      next
   end with
End Sub