Pivottabelle anpassen, wenn eine andere veränderte Filter bekommen hat

15/04/2009 - 11:45 von Walter Heying | Report spam
Hallo,

ich möchte den Seitenfilter (Feld: Code) der Pivottabelle2 veràndern
lassen wenn der Seitenfilter (Feld: Code) veràndert wurde. Ich kenne
die Ereignisfunktion "Private Sub Worksheet_PivotTableUpdate(ByVal
Target As PivotTable)". Hiermit làuft es so gut, dass Makro gar nicht
genug bekommen kann und in einer Endlosschleife kein Ende findet.
Nachfolgend das Makro:
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Code = Cells(2, 41) 'Aufwahl des Codes in der oberen Pivot-
Tabelle
ActiveSheet.PivotTables("PivotTable5").PivotFields("Code
Abm.").CurrentPage = Code
End Sub

Wer kann es so veràndern, dass es nur einmal durchlaufen wird, wenn
der Eintrag in Zelle AO2 (also Cell(2,41)) veràndert wird?

Gruß
Walter
 

Lesen sie die antworten

#1 Wolfgang Habernoll
15/04/2009 - 13:01 | Warnen spam
Hallo Walter

"Walter Heying" schrieb im Newsbeitrag
news:
Hallo,

ich möchte den Seitenfilter (Feld: Code) der Pivottabelle2 veràndern
lassen wenn der Seitenfilter (Feld: Code) veràndert wurde. Ich kenne
die Ereignisfunktion "Private Sub Worksheet_PivotTableUpdate(ByVal
Target As PivotTable)". Hiermit làuft es so gut, dass Makro gar nicht
genug bekommen kann und in einer Endlosschleife kein Ende findet.
Nachfolgend das Makro:
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Code = Cells(2, 41) 'Aufwahl des Codes in der oberen Pivot-
Tabelle
ActiveSheet.PivotTables("PivotTable5").PivotFields("Code
Abm.").CurrentPage = Code
End Sub

Wer kann es so veràndern, dass es nur einmal durchlaufen wird, wenn
der Eintrag in Zelle AO2 (also Cell(2,41)) veràndert wird?



versuche es mit 'EnableEvent', setze am Anfang und Ende deines Codes

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Application.EnableEvents = False

''' dein Code

Application.EnableEvents = True
Ens Sub

mfG
Wolfgang Habernoll

[ Win XP Home SP-2 , XL2002 ]

Ähnliche fragen