AW: Workaround
30.12.2007 17:53:00
Daniel
Hi
ich kenne diese Möglichkeit nicht
Was nicht heißen muss, daß es sie nicht gibt, schließlich gibts beim autofilter auch die Möglichkeit, die Auswahlpfeilchen auszublenden, allerdings nur über Makro.
Als Workaround würde sich folgendes anbiegen:
- wenn die Einstellung der Pivot-Tabelle verändert wird, wird ein EVENT ausgelöst, dieses könntest du nutzen, um die Einstellungen der Pivot-Tablle wieder in deinem Sinne herzustellen.
das folgende Makro würde alle Pivot-Felder wieder sichtbar machen, ein Ausblenden wäre nicht möglich (das Makro gehört ins Modul der Tabelle die die Pivot-Tabelle enthält):
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim pF As PivotField
Dim pI As PivotItem
With Target
For Each pF In .PivotFields
For Each pI In pF.PivotItems
pI.Visible = True
Next
Next
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
ne weitere Methode wäre, die ganze Pivot-Tabelle zu kopieren und an gleicher Stelle als Wert einzufügen, dann ist sie aber vollständig von den Quelldaten entkoppelt, dh. bei einer Datenaktualisierung oder jeder anderen Änderung müsste die Pivot-Tabelle komplett neu erstellt werden.
gruß, Daniel
weils nur ein Woraround ist, lass ich die Frage mal offen