Listbox vullen met deel van tabel

[vds01]

Ik zou graag een listbox willen vullen met een gedeelte van een tabel.
De tabel heeft een dynamisch bereik en onder namen beheren de naam 'Tabel' gekregen.

Als ik op de knop klik zou ik een listbox willen krijgen met enkel de waarde van 'N4' die ook in de kolom E voorkomt.

Dus in dit voorbeeld enkel de titel rij en rij 8 en 9.

grtjs


Bekijk bijlage test-Listbox.xlsm

 

[Leotaxi]

kijk hier eens

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


mvg
Leo

 

[edmoor]

Kijk ook eens naar dit:
Bekijk bijlage test-Listbox.xlsm

 

[Warme bakkertje]

Of deze

Private Sub UserForm_Initialize()
    'Algemene variabelen
    Dim tb As Range     'Het te gebruiken benoemde bereik

    'Variabelen voor benoemd bereik
    Dim rt As String    'Het RefersTo attribuut

    'Het te gebruiken benoemde bereik
    Set tb = Range("Tabel")

    'Bepalen RefersTo voor de koppen
    rt = "=" & ActiveSheet.Name & "!" & _
         "$" & Chr(tb.Column + 64) & _
         "$" & tb.Row - 1 & ":" & _
         "$" & Chr((tb.Column + tb.Columns.Count - 1) + 64) & _
         "$" & tb.Row - 1
         
    'Toevoegen benoemd bereik + koppen vullen
    ActiveWorkbook.Names.Add Name:="Koppen", RefersTo:=rt
    LB2.ColumnCount = tb.Columns.Count  'Het aantal kolommen
    LB2.Enabled = False                 'Daar hoeft verder niemand te zijn
    LB2.RowSource = "Koppen"            'De Koppen RowSource
    
    With LB1
        .ColumnCount = tb.Columns.Count  'Het aantal kolommen
        .List = tb.Value
        For i = .ListCount - 1 To 0 Step -1
            If Not .List(i, 2) = Range("n4") Then .RemoveItem i
        Next
    End With
    
End Sub

 

[vds01]

Super,

Bedankt voor de reacties/oplossingen!

Hiermee kan ik verder.

Grtjs