Keuzelijst aan de hand van anderen keuzelijst.

[Mikey507]

Beste,

Zodra ik de eerse keuze in ComboBox1 selecteer wil ik graag een 2e keuzelijst hieraan hangen, dit gaat goed.
maar zodra ik na de eerste keuze in Combobox1 de 2e keuze wil selecteren, blijven de eerste gegevens ook staan in keuzelijst 2..

Private Sub cmdPlant_Click()

If Me.cmdPlant.Value = "HH01" = True Then
         With ComboBox4
 .AddItem "Hal28A"
 .AddItem "TD"
 .AddItem "Achter"
 End With
End If

If Me.cmdPlant.Value = "BT01" = True Then
         With ComboBox4
 .AddItem "Hal28B"
 End With
End If
      End Sub

De selectie wil ik alleen niet afhankelijk laten zijn vanuit een waarde in een cel.
er zijn diverse topic's met de zelfde vragen maar dan m.b.t. waardes uit cellen.

groetjes,
Mike

 

[OctaFish]

Met AddItem voeg je nieuwe items toe, je haalt de oude er (uiteraard, zou ik zeggen) niet mee weg. AddItem is sowieso geen handige methode:\

    Select Case Me.cmdPlant
        Case "HH01"
            Combobox4.List = Array("Hal28A", "TD", "Achter")
        Case "BT01"
            Combobox4.List = Array("Hal28b", "Voor")
        Case "Rest"
            Combobox4.List = Array("Hal28c", "Tussen")
    End Select