Mit szólnál az alábbi megoldáshoz? A szűrő a "Munka1" munkalapon van a szűrő feltételek pedig a "Munka2" - "A" oszlopában:

 

 

Sub KétDátumKözöttiSzűrőBE(tól As String, ig As String)
Dim mettol2 As String
Dim meddig2 As String

 

mettol2 = Mid(tól, 6, 2) & "/" & Right(tól, 2) & "/" & Left(tól, 4)
  meddig2 = Mid(ig, 6, 2) & "/" & Right(ig, 2) & "/" & Left(ig, 4)
   
  Selection.AutoFilter Field:=11, Criteria1:=">=" & mettol2, Operator:=xlAnd, Criteria2:="<=" & meddig2

End Sub

 

'-------------------------------------------------------------------

 

Sub SzűrőTeszt()

 

  KétDátumKözöttiSzűrőBE Format(Worksheets("Munka2").Range("A3"), "yyyy.mm.dd"), Format(Worksheets("Munka2").Range("A6"), "yyyy.mm.dd")

 

End Sub