Microsoft Excel

Herbers Excel/VBA-Archiv

Autofilter setzen 365 Tage ab Heute | Herbers Excel-Forum


Betrifft: Autofilter setzen 365 Tage ab Heute von: Urmila
Geschrieben am: 18.12.2009 13:51:22

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

  

Betrifft: AW: Autofilter setzen 365 Tage ab Heute von: Tino
Geschrieben am: 18.12.2009 14:09:20

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 TinoSmilies


  

Betrifft: ...oder so von: Luschi
Geschrieben am: 18.12.2009 14:15:28

Hallo Urmila,

das frunktioniert auch: Selection.AutoFilter Field:=8, Criteria1:=">=" & CLng(d), Operator:=xlAnd


Gruß von Luschi
aus klein-Paris


  

Betrifft: Besten Dank und euch beiden auch frohes FEST :-) von: Urmila
Geschrieben am: 18.12.2009 14:32:04

LG
Urmila


Beiträge aus den Excel-Beispielen zum Thema "Autofilter setzen 365 Tage ab Heute"