Filteren - lege cellen zichtbaar - vba code

[karelbek1967]

Hallo,

Ik zou graag een vba code willen voor het filteren van een tabel gebaseerd op de waarde van een cel.
Belangrijk hierbij is dat de lege cellen onderaan het resultaat wel zichtbaar moeten blijven.
In het bestand is mijn vraag terug te zien.

Kan iemand me aan deze code helpen?

 

[edmoor]

Zoiets:

ActiveSheet.ListObjects("Tabel1").Range.AutoFilter Field:=1, Criteria1:="=" & Range("E1"), Operator:=xlOr, Criteria2:="="

 

[karelbek1967]

Dank je Edmoor, dit zocht ik.
Kan ik verder bouwen aan m'n bestand.

 

[edmoor]

Mooi zo.
Markeer je je vraag ook even als opgelost?

 

[karelbek1967]

Opgelost. :d

 

[edmoor]

:thumb:

 

[AHulpje]

Bij mij werkt de oplossing van edmoor niet, maar deze wel:

Sub FilterTabel()
    ActiveSheet.ListObjects("Tabel1").Range.AutoFilter Field:=1, Criteria1:= _
        Array("="), Operator:=xlFilterValues, Criteria2:=Array(2, Format(Range("E1"), "mm/dd/yyyy"))
End Sub

Ik gebruik de Nederlandse versie van Excel, is dat wellicht de oorzaak?

 

[edmoor]

Geen idee.
Bij mij werkt het prima en ik heb ook de NL versie.
Maar de datum format die je gebruikt is Engels.