2 Pivottabellen gleichzeitig betätigen
25.06.2007 15:38:05
Kerstin
ich habe mir 2 Pivottabellen erstellt die gleichzeitig betätigt werden. Und zwar wenn ich bei der Pivottabelle2 einen Wert auswähle muss ich auf Aktualiseren klicken und dann wird diese Auswahl auch in der Pivottabelle1 übernommen. Das funktioniert Dank des Forums auch spitze!!!
Jetzt wollte ich noch wissen ob es auch ohne "Aktualisieren", also ohne vorher den Button zu drücken, möglich ist die Änderung der Auswahl zu übertragen.
Anbei noch meine Programmierung:
Private Sub CommandButton1_Click()
Dim strSeite As String
Dim strSeite2 As String
strSeite = ActiveSheet.PivotTables("PivotTable2"). _
PivotFields("Vertriebsweg").CurrentPage
ActiveSheet.PivotTables("PivotTable6").PivotFields("Vertriebsweg"). _
CurrentPage = strSeite
strSeite2 = ActiveSheet.PivotTables("PivotTable2"). _
PivotFields("WSG").CurrentPage
ActiveSheet.PivotTables("PivotTable6").PivotFields("WSG"). _
CurrentPage = strSeite2
End Sub
Wäre sehr froh über alle Tipps!!! Vielen Dank im Vorraus. Kerstin