Excel autofilter criteria

[Ralf1991]

Beste helper,

In bijgevoegd bestand gebruik ik onderstaande code. Ik krijg de code alleen niet op een juiste manier werkend. Als je de macro uitvoert geeft Excel geen waarde groter of gelijk dan 07-01-2016 aan terwijl die er wel zijn.

Range("D1").Select
    ActiveSheet.Range("$A$1:$Z$3000").AutoFilter Field:=4, Criteria1:=">=" & Worksheets("Traffic_File_ASW").Range("A1").Value, Operator:=xlAnd

Bekijk bijlage voorbeeld.xlsm

Wat doe ik fout?

Bedankt!

 

[MarcelBeug]

Het datumformaat is fout: er wordt nu gefilterd op alles na 1-7-2016.

Dit gaat beter:

Range("D1").Select
    ActiveSheet.Range("$A$1:$D$3000").AutoFilter _
    Field:=4, _
    Criteria1:=">=" & Format(Worksheets("Traffic_File_ASW").Range("A1").Value, "mm/dd/yyyy"), _
    Operator:=xlAnd

 

[Ralf1991]

Bedankt Marcel!

 

[VenA]

Als je alleen wil filteren op datums die groter of gelijk zijn aan vandaag dan kan het ook zonder hulpcel.

Sub VenA()
   Sheets(1).Cells(1).CurrentRegion.AutoFilter 4, ">=" & Format(Date, "mm-dd-yyyy")
End Sub