Thema: Autofilter setzen 365 Tage ab Heute | Herbers Excel-Forum

Hallo alle zusammen,
ich habe soeben ein Skript erstellt, was nicht wirklich funktioniert.

Dim d
d = Date + 365
Selection.AutoFilter Field:=8, Criteria1:=d, Operator:=xlAnd

Mein Ziel ist, alle Zellen anzuzeigen, die größer sind als 1 Jahr zum gegenwärtigen Datum (sprich Tag der Ausführung)
Er setzte zwar ein Filter ein, wenn ich jedoch die Bedingung im Filter mir anschaue, steht da "18/12/2010"
Meine Datums in Zellen sind nur mit Punkten (also TT.MM.JJJJ)
Könnt Ihr mir bitte da weiterhelfen....
Danke ud LG
Urmila

Hallo,
versuche es mal so.
nicht getestet

Dim lngDatum As Long
lngDatum = DateSerial(Year(Date) + 1, Month(Date), Day(Date))
Selection.AutoFilter Field:=8, Criteria1:=">" & lngDatum

Frohe Festtage wünscht Tino

Hallo Urmila,
das frunktioniert auch: Selection.AutoFilter Field:=8, Criteria1:=">=" & CLng(d), Operator:=xlAnd
Gruß von Luschi
aus klein-Paris

LG
Urmila