demendent Comboboxe

[Excelvbas01]

hallo, komt niet uit. Gezocht op internet. Kan niet vinden wat wil.
Er zullen ongetwijfeld zijn maar kan nu niet vinden.

Ik heb drie Combobexen en met die comboboxen wil in Listbox filteren.
Met combobox 1 wil ik filteren in kolom B en met Combobox 2 in C en combobox 3 in kolom G.

Wel afhankelijk. Als ik bv op jan zoek dan alleen Adres van jan te zien krijg.

Graag hulp hierbij.

 

[AccessGuru]

Heb je dit al bestudeerd? Overigens mis ik in je bestand de drie keuzelijsten... Ik zie alleen een datatabel. Wat is precies de bedoeling? Om te filteren werkt het namelijk al prima.

 

[Excelvbas01]

Ik heb dit gevonden. Alleen kan ik comboboxen niet koppelen aan Listbox1.
De bedoeling is inhoud van tabblad tonen in Listbox en dan middels Comboboxen filteren.

 

[AD1957]

dan krijg je zoiets.

Private Sub ComboBox1_Click()
With ListBox1
    For i = .ListCount - 1 To 0 Step -1
        If .List(i, 1) <> ComboBox1 Then .RemoveItem i
    Next i
End With
End Sub

Private Sub UserForm_Initialize()
ListBox1.List = Sheets("Data").ListObjects(1).DataBodyRange.Value
ComboBox1.List = Sheets("Data").ListObjects(1).ListColumns(2).DataBodyRange.Value
ComboBox2.List = Sheets("Data").ListObjects(1).ListColumns(3).DataBodyRange.Value
ComboBox3.List = Sheets("Data").ListObjects(1).ListColumns(7).DataBodyRange.Value

End Sub

 

[Excelvbas01]

AD1957, Hoe krijg ik de ander twee comboboxen gekoppeld aan elkaar. Afhankelijk maken, zodat ik in Listbox kan filteren.

 

[AD1957]

Zo?

 

[Excelvbas01]

Bedankt,
Er is alleen een probleem. Ik krijg dubbele namen in Combobox ipv van 1.
Is er een mogelijkheid om dit op te lossen.

Nu krijg ik:
jan
jan

ipv
jan

alvast bedankt.

 

[AD1957]

Waarschijnlijk bedoel je 2 x jan in de listbox en dan als je in combobox2 op adres2 clickt.

Logisch, in de tabel staat twee keer een Jan met Adres2.

 

[Excelvbas01]

Bedankt voor je hulp.