ich möchte mit der Funktion Datenschnitt einer Pivot Tabelle den Diagrammbereich eines Diagramms steuern.
Die Diagrammbereiche habe ich mit den drei Namen "Lager_A", "Lager_B" und "Lager_C" benannt.
In meinen Quellcode versuche ich jetzt den Filter meiner Pivot Tabelle anzusprechen und im zweiten Schritt den Namen dem Diagrmam zu zuordnen. Ich tue mir aber noch schwer mit dem Code. Könnt Ihr mir vielleicht helfen?
Außerdem habe ich meine Test Excel Mappe angefügt.
Vielen Dank und beste Grüße
Christian
https://www.herber.de/bbs/user/125810.xlsm
Option Explicit
Sub Schaltfläche1_Klicken()
Dim wsDaten As Worksheet
Dim wspivot As Worksheet
Set wsDaten = tabdaten
Set wspivot = tabpivot
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With wspivot
.PivotTables("PivotTable1").RefreshTable
If PivotTables("PivotTable1") = "A" Then
ActiveSheet.ChartObject("Diagramm 3").Activate
ElseIf PivotTables("PivotTable1") = "B" Then
Else
End If
End With
Application.Calculation = xlCalculationAutomatic
End Sub