☰

工作表更改后 Excel 筛选器消失

tag-icon • tag-icon microsoft-excel vba
工作表更改后 Excel 筛选器消失

我有一个包含多张工作表的 Excel 文件。工作表 1 (Lagerliste) 包含大量物流数据。主要包括：WHAT 在哪里

在单独的工作表中，我想要过滤行 (B) 中包含特定值 (自助服务) 的所有行。我使用 VBA 宏来实现此目的：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' Filters LagerlisteHW Row B for the word "Selfservice" and copys the corresponding lines
    ' to the sheet "Selfservice" to rows with the headers deefined in Selfservice!A2:C2
    ' Define the search-criteria in Selfservice!L1:L2 (currently the word "Selfservice")

    Sheets("LagerlisteHW").Range("B5").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Sheets("Selfservice").Range("L1:L2"), CopyToRange:=Sheets("Selfservice").Range("A2:C2"), Unique:=False

End Sub

这很好。负面影响如下：

每当我更改 sheet1 中的单元格时，过滤器就会停止工作，甚至会从所选行中消失。我必须手动单击过滤器图标，然后像以前一样选择过滤器。这真是太不方便了。有人知道这个“功能”的解决方法和/或修复方法吗？

此外，我无法多次复制和粘贴 - 只能复制一次。然后单元格不再通过移动虚线进行选择。

这是由于 .xlsm 格式造成的还是我弄乱了什么？

亲切的问候

相关内容