Pivot Items für ein Feld wieder auf true
03.12.2008 16:55:00
Lutz
ich habe ein Makro welches mir die Pivotitems für ein einzelnes Feld wieder einblendet:
Sub Macro2()
Range("A8").Select
Application.ScreenUpdating = False
Application.EnableEvents = False
With ActiveSheet.PivotTables("PivotTable3").PivotFields("NewStatus")
.PivotItems("E").Visible = True
.PivotItems("N").Visible = True
.PivotItems("A").Visible = True
.PivotItems("AS").Visible = True
.PivotItems("PM").Visible = True
.PivotItems("U").Visible = True
.PivotItems("Z").Visible = True
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Das ganze hat nur einen Nachteil: wenn es z.B. das "Z" nicht gibt dann steigt das Makro aus.
Die Werte ändern sich aber immer mal.
Daher bräuchte ich ein Makro welches für: With ActiveSheet.PivotTables("PivotTable3").PivotFields("NewStatus")
alle PivotItems auf visible = true setzt.
Hat jemand eine Idee?
Als kleines Goodie (man braucht es bestimmt spätestens morgen) wäre natürlich auch ein Makro gut welches alle PivotItems aller Felder wieder einschaltet.
Gruß Lutz