Pivot zeigt zu viele Kategorien an
10.07.2008 15:35:49
Angelo
Problem: im Datenbereich kommen jeden Monat neue Pivotitems hinzu, diese sollen im Pivot aber nicht visible sein, sondern nur der Wert jener, welche schon vor der Aktualisierung visible sind soll aktualisiert werden.
Leider setzt Excel neue PivotItems automatisch auf visible.... und ich weiss nicht wie ich das abfangen kann....
Sub PivotTabellenDatenDatenbereichErweitern()
Dim pt As PivotTable
Dim Bereich As Range
Set Bereich = Worksheets("DATAXY").UsedRange
ActiveWorkbook.Names.Add _
Name:="Pivot", _
RefersTo:=Bereich, Visible:=False
For Each pt In Worksheets("output").PivotTables
With pt
.PivotTableWizard SourceType:=xlDatabase, _
SourceData:="Pivot"
End With
pt.RefreshTable
Next pt