comboboxgegevens op basis van andere combobox.

[blueberry013]

Hallo!


Een vraagje... met volgende code kan ik een combobox (orderartikelcode) opvullen op basis van de gegevens in een eerste combobox (orderklant).
probleem is dat als ik dan orderklant verander er in combox 2 toch de gegevens van mijn eerste keuze in blijven staan.

Bedoeling is als ik orderklant wijzig, hij de gegevens in combox 2 ook wijzigt...
Dit lukt als ik mijn userform afsluit en terug opstart.
Maar dit is nu niet echt de bedoeling. Bedoeling is uiteraard als ik combobox 1 wijzig hij automatisch combobox ook wijzigt...

Kan iemand me helpen??

Private Sub orderklant_Change()

    On Error Resume Next
    
    orderklantcode.Value = Sheets("klanten").Cells(orderklant.ListIndex + 1, 2)

    orderklantcode.Value = Format(orderklantcode.Value, "00###")


    
    naamartikel = orderklant.Value
    
    DoeMaarOp = True
    leesrij = 3
    Worksheets(naamartikel).Activate
    lastrow = ActiveSheet.UsedRange.Rows.Count + 1
    While leesrij <= lastrow
        controle = Worksheets(naamartikel).Cells(leesrij, 2)
        orderartikelcode.AddItem (controle)
    
        leesrij = leesrij + 1
    Wend
    
End Sub

 

[ExcelAmateur]

blueberry013,


Als je goed en snel geholpen wil worden, zal je toch een voorbeeld hier moeten plaatsen.

 

[blueberry013]

Hallo,

Ik was zover nog niet om een voorbeeldje er op te plaatsen. ondertussen is mijn probleem opgelost!

Toch bedankt voor de steun!