PDA

Vollständige Version anzeigen : Zelle bedient 2 Pivottabellen


Martin09
30.07.2012, 11:01
Hallo zusammen,

ich habe ein kniffliges Problem, bei dem ich nicht richtig weiterkomme.

Ich möchte einen variablen Inhalt einer Zelle als Filterwert in mehrere Pivots übernehmen. Leider verhält sich die Pivottabelle nicht, wie eine mit Autofiltern.

Hat jemand hierzu Erfahrung? Anbei noch ein pdf. mit Ansicht.





Private Sub CommandButton1_Click()


Dim Eingabe As Integer



Worksheets("tabelle1").Range("b1").Value = Eingabe

ActiveSheet.PivotTables("PivotTable1").PivotSelect "'Eingabe'", xlDataAndLabel _
, True



'ActiveSheet.PivotTables("PivotTable1").PivotFields("Material").PivotItems("").Visible = True



'ActiveSheet.PivotTables("PivotTable2").PivotFields("Material").PivotItems("Eingabe").Visible = True



End Sub



Vielen Dank.

Martin09
30.07.2012, 12:19
Hallo zusammen,

dank einem anderem Forum habe ich das Problem nun beseitigen können.

Hier der Quellcode:


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("B1").Address Then
Sheets("Tabelle1").PivotTables("PivotTable1").PivotFields("Material").CurrentPage = Target.Value
Sheets("Tabelle1").PivotTables("PivotTable2").PivotFields("Material").CurrentPage = Target.Value
End If
End Sub

"Internet sei Dank."