[VBA] Filtern in intelligenter Tabelle

[Rabe]

Hi,

ich filtere eine intelligente Tabelle mittels Makro.

Was macht diese Zeile? Wie kann ich das darin enthaltene Datum auf "Heute()" setzen?

Code:

ActiveSheet.ListObjects("Rückläufer").Range.AutoFilter Field:=9, Operator:=xlFilterValues, Criteria2:=Array(0, "7/3/2019")

so geht es nicht:

Code:

Dim AktuellesDatum As Date
AktuellesDatum = Date
ActiveSheet.ListObjects("Rückläufer").Range.AutoFilter Field:=9, Operator:=xlFilterValues, Criteria2:=Array(0, AktuellesDatum)

oder so auch nicht:
ActiveSheet.ListObjects("Rückläufer").Range.AutoFilter Field:=9, Operator:=xlFilterValues, Criteria2:=Array(0, Date)[/code]

[atilla]

Hallo Ralf,

versuch mal wie folgt:

Dim AktuellesDatum As String
AktuellesDatum = Year(Date) & "/" & Month(Date) & "/" & Day(Date)
ActiveSheet.ListObjects("Rückläufer").Range.AutoFilter Field:=9, Operator:=xlFilterValues, Criteria2:=Array(2, AktuellesDatum)

[Case]

Hallo Ralf, :19:

es gibt für das Kriterium verschiedenen Konstanten. Auch eine für "Heute" -->> "xlFilterToday = 1 - Filtert alle Werte, die sich auf das aktuelle Datum beziehen". :21:

Also das Prinzip:

Code:

Tabelle1.ListObjects(1).Range.AutoFilter Field:=1, Operator:=xlFilterDynamic, Criteria1:=xlFilterToday

[snb]

Oder

Code:

Tabelle1.ListObjects(1).Range.AutoFilter 1, 1, 11