Automatisch filteren op basis van celinhoud (Worksheet_Change Target)

[tThye]

Beste mensen,

Ik wil graag in mijn Excel blad wanneer ik een waarde invoer in cel F1, dat deze wordt gefilterd in de bijbehorende (in dit geval 5e) kolom. Ik krijg met onderstaande code alleen telkens de error dat de typen niet overeen komen. Wat doe ik fout?

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address Is "$F$1" Then

kriterium = "*" & [F1] & "*"
    Selection.AutoFilter Field:=5, Criteria1:=kriterium, Operator:=xlAnd

End If

End Sub

Verder zou ik ook nog graag aan de code toevoegen, dat wanneer de cel leeg is dat de filter weer uitgezet wordt middels deze code:

    Selection.AutoFilter Field:=5

Hoe krijg ik beide vragen in één code?

Alvast bedankt voor de hulp.

Groeten, Mark

 

[popipipo]

Dit bestandje uit mijn archief gehaald.
Denk dat je hier wel verder mee kunt.

 

[tThye]

Gelukt na wat aanpassingen. Mijn dank is groot!