VBA filter

[andrevanderhors]

Wat ik nu heb.

Sub Filter_ABB()
ActiveSheet.ListObjects("Tabel1").Range.AutoFilter Field:=5, Criteria1:= _
"ABB"
End Sub

Sub Filter_ABC()
ActiveSheet.ListObjects("Tabel1").Range.AutoFilter Field:=5, Criteria1:= _
"ABC"
End Sub

Na het opnemen van een macro komt dit uit me filter.
Nu zou ik graag willen weten hoe ik de filterfunctie variabel kan maken.
Dus eigenlijk wil ik in een cel ABB ingeven of ABC en dit in een filter functie gebruiken in plaats van twee losse functies.

Dit is wat ik graag wil:

Sub Filter()
ActiveSheet.ListObjects("Tabel1").Range.AutoFilter Field:=5, Criteria1:= _
"variabele waarde in cel"
End Sub

 

[HSV]

Lukt het hiermee?

Criteria1:= Range("A1").value

 

[spaarie]

Activesheet.ListObjects("Tabel1").Range.Autofilter Field:=5, Criteria1:=Activesheet.Range("A1")

 

[andrevanderhors]

dank u werkt prima is er ook een vba code om alle filter weer inactief te maken?

ActiveSheet.ListObjects("Tabel1").Range.AutoFilter Field:=1
gebruik nu deze maar wil het hele bereik in een keer?(alle kolommen)

 

[HSV]

Ik weet niet of het zo in een tabel werkt, maar in een tabblad werkt het bijna hetzelfde.

Activesheet.ListObjects("Tabel1").Range.Autofilter