Erstmal Danke! Tolles Forum, hab schon viele Probleme dank den Profis die sich hier tummeln lösen können.
Nun hab ich folgendes Problem:
Ich habe einen Pivot, welcher auf den Daten in Tabelle "DataXY" beruht.
Tabelle Data XY:
Name; Monat; Anzahl
Fritz; 3 ; 5
Max; 3; 4
Moritz; 3; 2
Fritz; 4 ; 4
Max ; 4 ; 7
Moritz ; 4 ; 6
Daraus mache ich ein Pivot welcher mir die Summen von Fitz und Max anzeigt.
nun vergeht ein Monat... die neue Tabelle "DataXY" sieht wie folgt aus
Name ; Monat ; Anzahl
Fritz ; 3 ; 5
Max ; 3 ; 4
Moritz ; 3 ; 2
Fritz ; 4 ; 4
Max ; 4 ; 7
Moritz ; 4 ; 6
Fritz ; 5 ; 5
Max ; 5 ; 11
Moritz ; 5 ; 9
Barbara ; 5 ; 8
ich aktualisiere meinen Pivot auf dem neuen erweiterten Datenbereich mit folgendem Makro:
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
.PreserveFormatting = True
.PivotTableWizard SourceType:=xlDatabase, _
SourceData:="Pivot"
End With
pt.RefreshTable
Next pt
Jetzt ist neben Max und Fritz auch plötzlich die Barbara als Pivotitem ausgewählt. (Moritz hingegen nicht, was auch richtig ist). Barbara darf aber nicht angezeigt werden, sondern nur genau dieselben Pivotitems wie vor der Aktualisierung (Max und Fritz) sollen ausgewiesen werden.
Wie kann man die Pivotitem Auswahl beibehalten obwohl man den Datenbereich auf welchem der Pivot beruht erweitert und den Pivot aktualisiert?
Danke und Gruss, Angelo