Getrapte ComboBoxen

[wieter]

Naar analogie met getrapte validatie, wilde ik getrapte comboboxen maken.
Bij het openen van de bijlage werkt dit perfect.
- ComboBox1 geeft zijn keuzelijst
- ComboBox2 en combobox3 blijven leeg

Als ik nu 1 maal de boxen gebruik, en daarna alle boxen leeg maak,
om een nieuwe keuze te maken, zijn box2 en box3 niet meer leeg.
Alle drie de boxen geven nu de keuzelijst van combobox1.

Wat moet er aan de code toegevoegd worden, om na het leeg maken van de comboboxen,
Terug naar de beginsituatie te gaan. (box1 = keuzelijst, box2 leeg en box3 leeg)

ps. Dit bestandje dient tot niets, het is alleen maar een probeersel van mij.
Dank aan wie wil helpen.

Bekijk bijlage (2)Getrapte comboboxen.xlsm

 

[Conseclusie]

Zoiets?

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then
    ComboBox2.Clear
    ComboBox3.Clear
    Else:
        With ComboBox2
            .List = Sheets(2).Cells(3, Sheets(2).Rows(1).Find(ComboBox1.Value).Column).CurrentRegion.Value
        End With
End If
End Sub
Private Sub ComboBox2_Change()
If ComboBox2.ListIndex = -1 Then
    ComboBox3.Clear
    Else:
    With ComboBox3
        .List = Sheets(2).Cells(3, Sheets(2).Rows(1).Find(ComboBox2.Value).Column).CurrentRegion.Value
    End With
End If
End Sub

 

[wieter]

Fijn! Conselusie
I.p.v.

    ComboBox2.Clear
    ComboBox3.Clear

Was ik aan het proberen met:

    ComboBox2.Empty
    ComboBox3.Empty

En dat werkte niet.
Indien het je past: Wat is de betekenis van de toevoeging

ComboBox1.ListIndex = -1

 

[Conseclusie]

ListIndex geeft aan welk (het hoeveelste) item is gekozen. Het eerste item heeft ListIndex = 0.
ListIndex = -1 wil zeggen: geen item geselecteerd.

 

[wieter]

Mijn bedoeling is stap voor stap een beetje VBA onder de knie te krijgen.
Bedankt voor de verklaring.
Bedankt voor de oplossing.

 

[Conseclusie]

Graag gedaan. Een forum als dit is een prima hulpmiddel om VBA-kennis te verkrijgen, weet ik uit ervaring.