使用VBA在日期范围之间自动过滤

Question

我正在尝试自动过滤两列之间的用户窗体（DTPicker）中输入的两个日期之间的某些数据（一个列：开始日期；第二列：结束日期），但是我的代码似乎无法识别日期范围。

我搜索了旧线程，但似乎没有任何答案。如果有人有任何想法，不胜感激。该代码的相关位如下。非常感谢

我的Excel表和用户表单：

必需的输出：在用户窗体中，选择开始日期：01.02.2019＆结束日期：08.07.2019，然后单击“提交”，它也将在日期之间进行过滤。

Private Sub cmdauto_Click()

Dim wsData As Worksheet

Set wsData = ThisWorkbook.Worksheets("Sheet1")
With wsData
Select Case Me.DTPicker1
    Case Me.DTPicker1
        .Range("A1:D1").AutoFilter Field:=3, Criteria1:=">=" & lDateFrom, Operator:=xlAnd, Criteria2:="<=" & lDateTo
    End Select
End With

With wsData
Select Case Me.DTPicker2
    Case Me.DTPicker2
        .Range("A1:D1").AutoFilter Field:=4, Criteria1:=">=" & lDateFrom, Operator:=xlAnd, Criteria2:="<=" & lDateTo
    End Select
End With

Unload Me

End Sub