VBA, Pivotfilter alles <>0, Leer, N.N.
07.04.2020 16:29:40
Georg
hierzu finde ich keinen Ansatz im Forum oder im Netz. Problem: ich bekomme eine fertige Pivotabelle, aus der ich bestimmte Daten rauskopieren muss. Dazu muss ich die Tabelle in erster Linie in einer Spalte filtern und den Filter so setzen, dass alles AUSSER: 0, (Leer) und N.N. gezeigt wird. In der Spalte sind immer wechselnde Einträge und nur die leeren, etc sollen raus. Mit dem Recorder renne ich gegen die Wand, da er die verbleibenden aufzählt und nicht die die raussollen.
Statt dem "...=Array(.." brauche ich etwas wie: "...Array(.." Da meckert VBA aber.
(a, b und c stehen für 0, leer und N.N.)
Sub Makro4()
ActiveSheet.PivotTables("PivotTable1").PivotFields("[PSP_Kurz].[SDM NEU].[SDM NEU]"). _
VisibleItemsList = Array( _
"[PSP_Kurz].[SDM NEU].&[a]", _
"[PSP_Kurz].[SDM NEU].&[b]", _
"[PSP_Kurz].[SDM NEU].&[c]")
End Sub
Wie muss ich das machen?
Danke für eure Hilfe
Gruß Georg