Countif日期之前的特定日期

Question

我遇到了问题，我正在努力解决简单的问题。 我想按VBA统计所有以前的项目。

我确定我的代码+ excel文件具有日期格式，但是它不起作用。 当我在寻找确切的日期时-它可以工作，但是当我在添加多数符号时-VBA在提示窗口中始终显示零。

您知道哪里出了问题吗？

Sub test()
Set oWorkbook = ActiveWorkbook
Dim suma_processed3 As Integer
Dim Rng As Integer


Rng = Range("A" & Rows.Count).End(xlUp).Row

If IsDate(Range("AH5")) Then
Call MsgBox("its a date")
Else
Call MsgBox("this is not a date")
End If

suma_processed3 = Application.WorksheetFunction.CountIf(Range("AH2:AH" & Rng), ">" & CDate("26.03.2018"))


Call MsgBox(suma_processed3)

End Sub