过滤表中的日期值

Question

我有这个子：

Sub standardfilter()
    
        Dim ws As Worksheet
        Dim tbl As ListObject
        
        Set ws = ActiveSheet
        Set tbl = ws.ListObjects("Tabelle1")
        
        tbl.Range.AutoFilter field:=2, Criteria1:=">=Date()", Operator:=xlAnd
        
        Range("Tabelle1").Sort Key1:=Range("E5"), Order1:=xlAscending, Header:=xlYes
        

End Sub

它连接到一个命令按钮，执行时应首先过滤今天或将来的日期，然后按升序过滤另一个日期列。问题是，如果我只执行第一个过滤器，其中包含Criteria1:=">=Date()"今天或将来的数据，则不会显示任何数据。

Excel 表格如下所示：

“Gremium”是事件名称，“Gremientermin”是事件的日期，“Frist”是该事件流程中特定工作流程的日期。

Answer 1

使用

tbl.Range.AutoFilter field:=2, Criteria1:=">=" & CLng(Date), Operator:=xlAnd

在这种情况下，日期将转换为其等效数字 - 这被视为独立于系统语言的标准