Clever-Excel-Forum

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]

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)

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

Oder

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

Rabe

atilla

Case

snb