我有这个子:
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
Run Code Online (Sandbox Code Playgroud)
它连接到一个命令按钮,执行时应首先过滤今天或将来的日期,然后按升序过滤另一个日期列。问题是,如果我只执行第一个过滤器,其中包含Criteria1:=">=Date()"今天或将来的数据,则不会显示任何数据。
“Gremium”是事件名称,“Gremientermin”是事件的日期,“Frist”是该事件流程中特定工作流程的日期。