VBA останавливается с кодом ошибки 1004 -> общее значение в слайсере и в несовместимых типах l oop

Question

Сначала я должен сказать, что мой код работал без проблем последние 4 месяца. Но с этой недели он выдает ошибку во время l oop элементов среза. У меня три раза один и тот же код, но для трех разных стран. Это все еще работает для двух из этого. Я не знаю, почему не для третьего (как я уже сказал, коды идентичны).

Я благодарен за любую помощь!

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

Answer 1

Я нашел причину ошибки. Я не знаю почему, но последний PivotItem изменил орфографию из источника. Теперь это отличалось от элемента массива. Например:

Jasson в сводной таблице изменился на JASSON. Я изменил значение массива сейчас, и оно снова работает!