Userform combobox met een filter

[HWV]

Beste,

Ik wil in een userform waar ik een combobox heb staan de gegevens ophaalt uit mijn werk blad, met een filter.

Private Sub Userform_Initialize()
      
     With Sheets("Database")
        ComboBox1_1.RowSource = .Name & "!" & .Cells(2, 1).CurrentRegion.Address
    End With
End Sub

Set code = .Range("A2:A1500").Find(ComboBox1_1.Value, LookIn:=xlValues, Lookat:=xlWhole)
    If Not code Is Nothing Then
       .... 
    End If
End With

Dat gaat goed, enkel laat hij nu alle regels zien.
Enkel wil ik vooraf al een filter erin zetten, dat hij bv enkel de regels laat zien waar "Piet" in staat.

Is dat mogelijk?

Henk

 

[snb]

Daarvoor is rowsource niet geschikt.

 

[HWV]

Beste,

Kan ik het dan wel voor elkaar krijgen door een listbox hier aan toe te voegen!
En kan ik die dan al wel filteren op bv "Piet" vooraf ingesteld!

Groet Henk

 

[snb]

Kijk eens hier:

https://www.snb-vba.eu/VBA_Fill_combobox_listbox.html