Gefilterde waarden in listbox plaatsen

[adej]

Ik probeer om de gefilterde waardes in een listbox te plaatsen.
Het filteren met vba gaat wel goed. Vervolgens plaats ik de waarden in de listbox, maar dit zijn niet alleen de gefilterde waarden maar alle waarden uit de tabel.

Weet iemand raad?

Hieronder de code die ik gebruik:

Sub Filteren()
Range("A8:B22").Select
Selection.AutoFilter
ActiveSheet.Range("$A$8:$B$22").AutoFilter Field:=1, Criteria1:="*" & ActiveSheet.Range("A2").Value & "*", _
Operator:=xlAnd
End Sub

Private Sub CommandButton1_Click()

listboxen
End Sub

Private Sub listboxen()

Filteren
Dim A

A = 8
Volgende:
A = A + 1
If Sheets("blad1").Cells(A, 1) <> "" Then
GoTo Volgende
Else:
A = A - 1
ListBox1.RowSource = "Blad1!A9:A" & A

End If
End Sub

 

[exhelp]

Je kan de listbox vullen en in de listbox zelf 'filteren'.
Is dit een optie? Kijk dan hier eens voor wat info:

http://www.dailydoseofexcel.com/archives/2005/02/16/limit-a-listbox/