时间戳

首页 > 解决方案 > VBA 停止并出现错误代码 1004 -> 切片器中的总括值和循环类型不兼容

excel - VBA 停止并出现错误代码 1004 -> 切片器中的总括值和循环类型不兼容

问题描述

首先，我不得不说，我的代码在过去的 4 个月里运行没有任何问题。但是从本周开始，它在切片器项目的循环过程中引发了一个错误。我有三倍相同的代码，但用于三个不同的国家。它仍然适用于其中的两个。我不知道为什么不是第三个（我怎么说，代码是相同的）。

我很感谢任何帮助！

s = Array("Jack", "Lisa", "John", "Jasson")
    j = 0
    For j = 0 To 3
    'MsgBox s(j)

    'Pivot-Filter wieder resetten
    ActiveWorkbook.SlicerCaches("Datenschnitt_KDName1").ClearManualFilter
    ActiveWorkbook.SlicerCaches("Datenschnitt_Land").ClearManualFilter

    'Filter durchgehen
    With f
         For Each i In .PivotItems
           If i.Name <> s(j) Then
                i.Visible = False
           Else:
                i.Visible = True
           End If
         Next
    End With

123 123

123

标签： excelvba

解决方案

我找到了错误的原因。我不知道为什么，但最后一个 PivotItem 从源头改变了拼写。现在它与数组项不同了。例如：

Jasson 在数据透视表中更改为 JASSON。我现在更改了数组值，它又可以工作了！

推荐阅读