Filterelemente über VBA
16.04.2018 09:38:42
Dirk
ich habe ein kleines Problem, ich möchte aus einem Filter einer Pivot-Tabelle nur bestimmte Elemente auswählen. Ich habe 15 Gruppen und möchte aber nur 3 Gruppen nicht in die Auswahl aufnehmen (Gruppe 2,4,5). Bisher habe ich damit gearbeitet, dass ich die Gruppen die ich nicht miteinbeziehen wollte auf "False" gesetzt habe. Das vergangene Jahr hat das über diesen Code einwandfrei funktioniert:
Sub Analyse()
ThisWorkbook.Activate
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Original")
Dim p As PivotTable: Set p = Ws.PivotTables("PivotTable1")
Dim i As PivotItem, s$
Dim g As PivotField: Set g = p.PivotFields("Gruppe")
'Gruppe
With g
For Each i In .PivotItems
Select Case i.Name
Case Is = "", "Gruppe 2", "Gruppe 4", "Gruppe 5"
i.Visible = False
Case Else
i.Visible = True
End Select
Next
End With
End Sub
Jetzt ist das Problem, das VBA mir den Fehler ausgibt: Typen unverträglich.
Obwohl die Filterelemente immernoch die gleichen sind. Und gibt es eine Möglichkeit diesen Fehler zu umgehen. Woran kann das liegen? Ich stehe gerade wirklich auf dem Schlauch.
Vielen Dank im voraus für Eure Hilfe.
Grüße
Dirk