Listbox filteren op specifieke kolom

[mvdvlist]

Beste medeforummers,

ik heb weer een vraagje...

Ik gebruik onderstaande code in mijn Userform.
Dit werkt perect, maar hij zoekt alleen op de eerste column. Ik zou graag willen zoeken op een andere, specifieke column.
In alle columns zoeken maakt het zoeken veel te traag, dus dat is geen optie.
Met andere woorden, hoe moet deze code aangepast worden? Als dit al mogelijk is...
Ik wil gaan zoeken in kolom 7, dus Column(6).

Vriendelijk dank, Opa Maarten

Private Sub CommandButton88_Click()
Dim i As Long
    Dim sFind As String

    sFind = Me.ZOEKIDBOX.Text

    If Len(sFind) = 0 Then
        Me.LB_01.ListIndex = -1
        Me.LB_01.TopIndex = 0
    Else
        For i = 0 To Me.LB_01.ListCount - 1
            If UCase(Left(Me.LB_01.List(i), Len(sFind))) = UCase(sFind) Then
                Me.LB_01.TopIndex = i
                Me.LB_01.ListIndex = i
                Exit For
            End If
        Next i
    End If

End Sub

 

[edmoor]

Geen voorbeeld document, dus probeer het eens:

Private Sub CommandButton88_Click()
Dim i As Long
    Dim sFind As String

    sFind = Me.ZOEKIDBOX.Text

    If Len(sFind) = 0 Then
        Me.LB_01.ListIndex = -1
        Me.LB_01.TopIndex = 0
    Else
        For i = 0 To Me.LB_01.ListCount - 1
            If UCase(Left(Me.LB_01.List(i[COLOR="#FF0000"], 6[/COLOR]), Len(sFind))) = UCase(sFind) Then
                Me.LB_01.TopIndex = i
                Me.LB_01.ListIndex = i
                Exit For
            End If
        Next i
    End If

End Sub

 

[mvdvlist]

Listbox filteren

Edmoor, hartelijk dank. In een keer goed.
In deze materie moet ik me toch meer verdiepen...kom een eind, maar dit was even simpel als doeltreffend.

Opgelost...

 

[edmoor]

Leer goed gebruik te maken van Intellisense, daar staat het allemaal in