VBA表格日期筛选无结果求助：筛选今日及未来日期无数据

核心问题分析 #

1. 筛选条件格式不兼容：直接使用">=Date()"作为筛选条件，Excel无法正确解析为日期数值，导致匹配失败。
2. 硬编码单元格排序风险：Range("E5")是固定单元格引用，表格位置变动后会失效。
3. 未清除原有筛选：如果之前存在筛选条件，叠加后可能导致无数据显示。

修复后的代码 #

Sub standardfilter()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Set ws = ActiveSheet
    Set tbl = ws.ListObjects("Tabelle1")
    
    ' 清除原有筛选状态
    If tbl.AutoFilter.FilterMode Then tbl.AutoFilter.ShowAllData
    
    ' 筛选「Gremientermin（会议日期）」列今日及未来的记录
    tbl.Range.AutoFilter Field:=2, Criteria1:=">=" & Date, Operator:=xlFilterValues
    
    ' 按「Frist（流程截止日期）」列升序排序
    With tbl.Sort
        .SortFields.Clear
        .SortFields.Add2 Key:=tbl.ListColumns("Frist").Range, _
                         SortOn:=xlSortOnValues, _
                         Order:=xlAscending
        .Header = xlYes
        .Apply
    End With
End Sub

关键优化点 #

• 将筛选条件改为">=" & Date，把VBA的Date函数结果转换成Excel可识别的日期数值，确保匹配正确。
• 使用ListObject的列名tbl.ListColumns("Frist").Range定位排序字段，避免硬编码单元格的不稳定问题。
• 增加筛选前的清除逻辑，避免旧筛选条件干扰新结果。
• 确认「Gremientermin」列的单元格为日期格式，若为文本格式需先转换格式，否则筛选条件无法生效。

内容的提问来源于stack exchange，提问作者BlankerHans