Zoeken in listbox

[don42]

Beste helpers,

even een vraagje over het zoeken in een listbox
Ik heb een listbox geladen met 10 kolommen (en veel namen en adresgegevens)
1e kolom = voornaam
2e kolom = achternaam
Telkens als ik de eerste letter in tik springt de regel naar een voornaam die begint met
(bijvoorbeeld de letter "H")
Dat werkt prima
Is het ook mogelijk het zo in te stellen dat op deze manier gezocht wordt naar de tweede kolom (met de achternaam?)

 

[SjonR]

vast wel, plaats een voorbeeldbestandje of op zijn minst de code die je nu al hebt

 

[don42]

Oke dit is mijn hele code van de userform
er staan heel veel namen in als het niet voldoende is moet ik eerst een voorbeeld bestand maken

 

[Gijsbert1]

Ik zie nergens jouw code.

Ik heb een bestand met een userform en gebruik daar het volgende:
Zodra je in Textbox1 begint te typen, zoekt de code in alle kolommen van de Listbox en filtert deze op de gevonden records:

Private Sub Textbox1_Change()
Dim rng As Range, i As Integer, ii As Integer, iii As Integer, MyArray as Variant
Set rng = ***input voor listbox***
    With Listbox1
        ReDim MyArray(rng.Rows.Count - 1, rng.Columns.Count)
        iii = 0
        For i = 1 To rng.Rows.Count
            For ii = 0 To rng.Columns.Count
                MyArray(iii, ii) = rng.Cells(i, ii + 1)
            Next
            iii = iii + 1
        Next
        .List = MyArray
        For i = .ListCount - 1 To 1 Step -1
            On Error Resume Next
            If InStr(LCase(Join(Application.Index(.List(), i + 1, 0))), LCase(Textbox1.Value)) = 0 Then .RemoveItem i
        Next i
    End With
End Sub