Combobox list (als functie)

[Bosswilly]

Goedendag,

Heb een vraagje over het volgende.

Stel ik heb een Combobox 1, die heeft een bepaalde variabelen en die is voor combobox 2 afhankelijk van de waarde van combobox 1.

vb. A1, A2, B1 en B2 (combobox1) mag de 1e rij van de combobox 2 list (Array) krijgen. Bij overige de rij van de combobox 2 (Split) krijgen.

Ander vraagje die er bij hoort. (Deze niet afgebeeld) als ik afhankelijk bent van 2 variabelen (Dus 2 comboboxen en deze moet in bijvoorbeeld nieuwe Combobox3) gehaald worden.

Hoe doe ik dit?

Alvast bedankt.

Bekijk bijlage 331750

 

[VenA]

Private Sub ComboBox1_Change()
 If ComboBox1.ListIndex >-1 Then  ComboBox2.List = IIf(ComboBox1.ListIndex < 4, Array(2, 4, 6, 10, 16, 20, 25, 32, 40, 50, 63, 80, 100, 125, 160, 200, 250, 315, 400, 500, 630, 800, 1000, 1250), Split("1,5 2,5 4 6 10 16 25 35 50 70 95 120 150 185 240 300 400 500 630 800 1000"))
End Sub

 

[snb]

Maak 2 invisible comboboxes:

Private Sub UserForm_Initialize()
    ComboBox1.List = Array("A1", "A2", "B1", "B2", "C", "D1", "D2", "E", "F", "G")
    combobox4.List = Array(2, 4, 6, 10, 16, 20, 25, 32, 40, 50, 63, 80, 100, 125, 160, 200, 250, 315, 400, 500, 630, 800, 1000, 1250)
    combobox3.List = Split("1,5 2,5 4 6 10 16 25 35 50 70 95 120 150 185 240 300 400 500 630 800 1000")
End Sub

Private Sub ComboBox1_Change()
   if combobox1.listindex>-1 then ComboBox2.List = Me("combobox" & 4 + (ComboBox1.ListIndex > 4)).List
End Sub