filteren op datum na vandaag in macro

[amarob]

Hallo,

ActiveSheet.Range("$B$1:$H$114").AutoFilter Field:=1, Criteria1:= _
">1-9-2023", Operator:=xlAnd

Ik wil in bovenstaande 1-9-2023 vervangen door de dag van vandaag. Ik heb het al geprobeerd met ">vandaag()" maar dat werkt niet.

Iemand een idee **** dit wel gaat werken?

Alvast bedankt voor jullie hulp.

 

[AD1957]

ActiveSheet.Range("$B$1:$H$114").AutoFilter 1,">" & 1 * Date

kijk eens hier: http://www.snb-vba.eu/VBA_Autofilter.html

 

[amarob]

ActiveSheet.Range("$B$1:$H$114").AutoFilter 1,">" & 1 * Date

kijk eens hier: http://www.snb-vba.eu/VBA_Autofilter.html

Werkt perfect. Dank voor de snelle oplossing.