使用VBA代码过滤date，使用需要的范围进行过滤

我有一个列表date和东西，需要过滤date。

我有这个代码

Private Sub CommandButton4_Click() Dim dDate As Date Dim strDate As String Dim lDate As Long dDate = DateSerial(2015, 9, 9) lDate = dDate Sheets("Einfügen_Auswertung").Range("A18").AutoFilter Sheets("Einfügen_Auswertung").Range("A18").AutoFilter Field:=3, Criteria1:=">=" & lDate, _ Operator:=xlAnd, Criteria2:="<" & lDate + 1 End Sub 

问题是我需要一个来自D4的DateSerial(2015, 9, 9)的date。 有人可以告诉我怎么样？ .Range（“D4”）不工作）：

我不是程序员… :)问候