andrevanderhors
Gebruiker
- Lid geworden
- 24 mrt 2012
- Berichten
- 18
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
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