range voor te filteren gegevens bepalen en deze filteren op de datum vandaag - 1 jaar

[GerV]

Hoi,

ik zoek een code die de range bepaalt voor de te filteren gegevens. Ik heb nu een "vaste range". Is het mogelijk om middels een code de werkelijke range voor het filteren te bepalen?


Verder wil ik deze gegevens dan nog filteren op een begindatum die ligt na vandaag - 1 jaar. Hieronder een aantal opgenomen pogingen met de macro opnemer. Alleen de laatste poging met de harde datum geeft een resultaat weer.
Ik wil echter niet steeds weer een nieuwe datum opgeven in de macro

ActiveSheet.Range("$A$1:$K$1584").AutoFilter Field:=6, Criteria1:=">m1", _
        Operator:=xlAnd
    [I]in m1 staat de formule =vandaag() - 365[/I]
    ActiveCell.FormulaR1C1 = "=TODAY()-365"
    ActiveSheet.Range("$A$1:$K$1584").AutoFilter Field:=6, Criteria1:= _
        ">vandaag()-365", Operator:=xlAnd
    ActiveSheet.Range("$A$1:$K$1584").AutoFilter Field:=6, Criteria1:= _
        ">28-1-2018", Operator:=xlAnd
End Sub

 

[snb]

Sub M_snb()
  Blad1.Columns(6).AutoFilter 1, Format(DateAdd("yyyy", -1, Date), "\>yyyy-mm-dd")
End Sub

 

[GerV]

Bedankt snb,

werkt prima.

GerV