Listbox met gefilterde data vullen

[appie36]

Ik gebruik dit om een listbox te vullen met data, waarna ik er met textbox 12 in kan zoeken/filteren.
Nu is de lijst er lang er wil ik de tabel waar ik de data uithaal al voor de tijd filteren, zodat alleen de zichtbare gegevens in de tabel worden meegenomen.
Ik en al aan het stoeien geweest met SpecialCells(xlCellTypeVisible) maar krijg het niet voor elkaar. Iemand nog een idee?

Mvg
Ab

Private Sub TextBox12_Change()
Dim i As Long
Me.TextBox12.Text = StrConv(Me.TextBox12.Text, vbUpperCase)
Me.ListBox1.Clear
For i = 2 To Application.WorksheetFunction.CountA(Blad5.Range("A:A"))
a = Len(Me.TextBox12.Text)
If Left(Blad5.Cells(i, 1).Value, a) = Left(Me.TextBox12.Text, a) Then
Me.ListBox1.AddItem Blad5.Cells(i, 1).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Blad5.Cells(i, 2).Value
End If
Next i
End Sub

 

[JEC.]

Eerst maar eens een voorbeeldje plaatsen