Gefilterde waarden in listbox plaatsen

[adej]

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

 

[OctaFish]

Dit is code... (Volgende keer graag in de CODE tag zetten.) Wat is de vraag?

 

[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.

 

[OctaFish]

Dat resultaat is wel logisch, want je loopt door alle records heen, ongeacht het filter. Je zou een check moeten hebben op de velden die door het fiter zijn verborgen, door bijvoorbeeld de hoogte van de rij op te vragen. Is die groter dan 0, dan is de rij zichtbaar, en zet je 'm in de lijst.

 

[adej]

Dat zou een logische stap zijn.
Alleen heb ik meerdere data in de sheet staan die ik weer gebruik in andere listboxen.
Wanneer ik op rijhoogte ga controleren kom ik weer in de problemen met de andere listboxen volgens mij...