meerdere afhankelijke keuzelijsten maken

[jeetjeveetje]

Ik ben in VB aan de hand van een ander bestand gegeven in een combobox aan het zetten. het lukt om aan de hand van de eerste keuze een tweede keuzelijst te maken. Echter nu wil ik aan de hand van de tweede keuze een derde keuzelijst maken. Kan iemand mij hiermee helpen?

script tot dusver:

Private Sub Onderdeel_Change()
Dim Range_Lookup As Range
Dim lookup_row_value As String
Dim found_value, found_value1, found1 As String
Dim onderdeel1 As String

onderdeel1 = Onderdeel.Value

lookup_row_value = onderdeel1

Set Range_Lookup = Workbooks("Werkmap2.xls").Worksheets("testmap").Range("$C$2:$E$920")

found_value = Application.VLookup(lookup_row_value, Range_Lookup, 3, False)


With Gebrek1
.RowSource = vbNullString
.RowSource = "'D:\[werkmap2.xls]Gebrekenlijst'!" & found_value
.ListIndex = 0
End With

'tot hier werkt het, nu probeer ik hieronder de gevonden waarde neer te zetten, daarop wil ik verder zoeken in een nieuwe kolom Nu wordt er in combobox1 dezelfde keuzelijst als bij gebrek1 getoond wat logisch is gezien het feit dat er nog niets is aangepast in de lookup_value

found1 = found_value1 & "1"

'Range(found1) = "found1" & "1"
'lookup_row_value = found1
'Range(found1).Resize(, 2).Name = "found1"

Set Range_Lookup = Workbooks("Werkmap2.xls").Worksheets("testmap").Range("$C$2:$F$920")

found_value = Application.VLookup(lookup_row_value, Range_Lookup, 3, False)

With ComboBox1
.RowSource = vbNullString
.RowSource = "'D:\[werkmap2.xls]Gebrekenlijst'!" & found_value
.ListIndex = 0
End With