VBA filteren op datum ouder dan vandaag

[ivoexcel]

Hallo Allemaal,

Onderstaande stuke code haalt data uit aangewezen tabbladen en plakt dit in het voorblad als het voldoet aan de voorwaarde:
- kolom 5 is meer of minder dan ''0''.
- de datum in kolom 14 is ouder dan vandaag (dus de datum is voorbij)

Deze laatste werkt alleen niet. ik krijgt ook de regels te zien die nog moeten komen. Weet iemand wat ik hier fout doe?

Alvast bedankt!

    Application.ScreenUpdating = False
    Sheets("BladX").UsedRange.Clear
    Rows("1:9999").EntireRow.Hidden = False
    For Each sh In Sheets(Array("Blad1", "Blad2", "Blad3", "Blad4"))
        With sh.Cells(1).CurrentRegion
        .AutoFilter 5, "<>0"
        .AutoFilter Field:=14, Criteria1:="<" & Date, Operator:=xlAnd
        x = Abs(Sheets("BladX").Cells(1).Value <> "")
        .Offset(x).Copy
        Sheets("BladX").Cells(Rows.Count, 1).End(xlUp).Offset(x).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
        .AutoFilter
      End With
    Next sh

 

[JEC.]

Probeer het eens zo:

Clng(Date)

 

[ivoexcel]

Hoe dan moet ik dat erin zetten?

 

[JEC.]

Op de plek waar nu Date staat in je code, maar bij je tweede criterium verwacht ik ook dat t misgaat

 

[snb]

Tweede criterium

 

[JEC.]

 

[cow18]

Probeer het eens zo:

Clong(Date)

Clong of Clng ?

 

[JEC.]

We gaan lekker

 

[ivoexcel]

ahhh kijk dat verklaart het! Nu werkt het. Top en bedankt allemaal!