Automatische datum filter

[StanWolfs]

Hallo,

In bijgevoegd bestand heb ik een macro opgenomen die in de datum lijst filtert op datum na vandaag. Deze datum wil ik automatisch uit een cel laten halen.

Sub DatumSelectie()
'
' DatumSelectie Macro
'

'
    ActiveSheet.ListObjects("Tabel1").Range.AutoFilter Field:=1, Criteria1:= _
        ">7-8-2015", Operator:=xlAnd
End Sub

Bekijk bijlage Datumfilter test.xlsm

Alvast bedankt voor de hulp!

 

[edmoor]

Probeer eens ">" & Date

 

[StanWolfs]

Hallo edemoor,

Ik wil de datum graag uit cel A1 halen zodat deze variabel wordt.

 

[edmoor]

Dan vervang je Date door Cells(1,1).Value