ListObject Spalte auf Zellen ohne Inhalt prüfen

[herbert0803]

Hallo,

ich setzte mit folgendem Code einen Filter in einer Tabelle. sTxt kommt aus eine InputBox.

Code:

   ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=9, Criteria1:= _
     "<=" & CDbl(CDate(sTxt)), Operator:=xlAnd

Das selbe möchte auch mit der nächsten Spalte machen. Wenn in der nächsten Spalte jedoch keine Daten zum Filtern sind, verschwinden alle Zeilen.
Wie kann ich zB zuvor Abfragen, ob in der nächsten Spalte die ich Filtern möchte überhaupt Daten zum Filtern sind?
In der Spalte 9 sind immer Datumsangaben.

Danke.

[herbert0803]

Hallo,

melde mich selbst nochmals. Falls es jemanden interessiert.

Mit folgendem Code funktioniert es.

Code:

   ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=10, Criteria1:= _
     "<=" & CDbl(CDate(sTxt)), Operator:=xlOr, Criteria2:="="

Vielleicht gibt es eine bessere Möglichkeit.