knop dat filtert op ouder dan vandaag

[otmar]

ik heb in excel 2 knoppen
knop 1. moet er voor zorgen dat de kolom met datums wordt gefilterd op vandaag
knop 2. moet er voor zorgen dat de kolom met datums wordt gefilterd op ouder of gelijk aan dan vandaag

achter die knoppen zit een vba code:

de vba code van knop 1:

Dim datum As Date
    datum = Format(Now(), "d-m-yyyy")
    Selection.AutoFilter field:=2, [B]Criteria1:=datum[/B]

de vba code van knop 2:

Dim datum As Date
    datum = Format(Now(), "d-m-yyyy")
    Selection.AutoFilter field:=2, [B]Criteria1:="<="&datum[/B]

nu werkt knop 1 wel maar knop 2 niet.
de filter is wel keurig ingevuld maar hij voert het niet uit.
wie weet wat ik fout doe, en wat de juist code is voor knop 2?

zie bijlage

 

[jepewe]

Verander de Sub vervallen zoals hieronder weergegeven

Public Sub vervallen()
Dim datum As Date, currentFiltRange

datum = Format(Now(), "d-m-yyyy")
With ActiveSheet.AutoFilter
currentFiltRange = .Range.Address
End With
ActiveSheet.Range(currentFiltRange).AutoFilter Field:=2

End Sub

Succes
Joop

 

[otmar]

joop,

bedankt voor je reactie.

ik heb het aangepast, maar het werkt niet.

zou je kunnen kijken wat er fout gaat? (zie bijlage)

otmar

 

[jepewe]

Helaas zie ik er geen fout in en ook jouw meegstuurde verandering werkt bij mij feilloos....
Ik werk overigens met office2007. Misschien zit daar het verschil?
Joop

 

[otmar]

ik werk met office 2003.
weet iemand een oplossing voor office 2003?

 

[Warme bakkertje]

Public Sub vervallen()
    [B5].AutoFilter 2, "<=" & Format(Date, "mm-dd-yyyy")
End Sub

Public Sub vandaag()
    [B5].AutoFilter 2, Date
End Sub

 

[otmar]

BINGO!!

bedankt! :thumb: