vba autofilter der ikke gennemfører den valgte filtrering?!

hej mit problem er at jeg får excel til at indtaste de valgte criteria'er men laver ikke udvælgelsen. kan selv gå ind i autofilter, under custom filter og trykke på enter så virker det, men det skulle jo helst ske automatisk.


Dim SupplierName, Year, PeriodB, PeriodE, December, As Variant
SupplierName = Sheets("SQ").Cells(3, 2)
Year = Sheets("SQ").Range("G8")
December = "array(01-12-" & Year & "," & "31-12-" & Year & ")"
PeriodB = ">=" & "01-01-" & Year
PeriodE = "<=" & "31-12-" & Year

dim Dest as Interger
dest = 5

Sheets("standard parts").Range("A1").AutoFilter _
field:=5, _
Criteria1:=SupplierName
'--- virker fint


With Sheets("standard parts").Range("A1")
.AutoFilter , field:=2, Criteria1:=December
.AutoFilter , field:=2, Criteria1:=PeriodB, Criteria2:=PeriodE,
Operator:=xlAnd End With
'--- virker ikke, indsætter søgekriteria'er men laver ikke udvælgelsen.

Sheets("SQ").Cells(Dest + 11, 2) = Sheets("standard parts").Range("I4").End(xlDown).Value
Sheets("SQ").Cells(Dest + 11, 3) = Sheets("standard parts").Range("N4").End(xlDown).Value

Sheets("standard parts").Range("A1").AutoFilter Field:=5
Sheets("standard parts").Range("A1").AutoFilter Field:=2


End Sub



Generelt er mit problem at lige så snart jeg sætter mere end et criteria i et field så kan jeg ikke få excel til at gøre som jeg ønsker. enten udfører den ikke et af criteria'erne eller den overskriver første criteria etc.

koden kunne helt sikkert gøres meget bedre, men det er lige sådan den ser ud :)