[excel2007]Formule gebruiken in filter array

[Paultje3181]

Ik heb in een macro een filter array staan. Nu wil ik eigenlijk dat ik in de macro filter op (weeknummer - 1)

Visual Basic:

    ActiveSheet.Range("$A$1:$M$" & LastRow1 & "").AutoFilter Field:=4, Criteria1:="<54", _
        Operator:=xlAnd

Criteria1 moet dus iets worden als

Visual Basic:

Criteria1:="=WEEKNUM(TODAY())-1"

Helaas werkt dit niet. Kan dit überhaupt wel? En zo ja, hoe zou ik het dan moeten noteren? Google levert mij alleen maar op hoe ik de filter maak helaas.

[Paultje3181]

Ik heb het via een omweg opgelost:

Visual Basic:

    Dim LastRow1 As Long
    With ActiveSheet
        LastRow1 = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    Range("A" & LastRow1 + 1 & "").Formula = "=WeekNum(TODAY()) - 1"
    ActiveSheet.Range("$A$1:$M$" & LastRow1 & "").AutoFilter Field:=4, Criteria1:=Range("A" & LastRow1 + 1 & ""), _
        Operator:=xlAnd

Blijft alleen de vraag over of het überhaupt mogelijk is om de formule er rechtstreeks in te zetten.

[Lustucru]

je bent wel héél lastig te volgen. Met array filter bedoel je het standaard autofilter?
Anyway, het standaard autofilters laat inderdaad geen formules toe. Maar als je toch in VBA het numerieke filter zet:

Visual Basic:

criteria1:=DatePart("ww", Date)-1

[Paultje3181]

Dankje... Sorry dat ik het niet beter uit kon leggen