Datenschnitt einer Pivot als Filter nutzen
22.02.2019 10:58:13
Rafe
ich habe zur Veranschaulichung der Tabelle "Quelldaten" ein Pivot Diagramm erstellt.
Gefiltert wird es durch die Verwendung von Datenschnitt-Filtern.
Jetzt würde ich gerne den Datenschnitt-Filter über VBA so programmieren, dass meine eigentliche Tabelle "Quelldaten" auch dementsprechend gefiltert wird.
Beispiel: Ich filter auf dem Tabellenblatt "Pivot" nach der Kalenderwoche 7 und meine Tabelle "Quelldaten" wird ebenfalls nach KW 7 gefiltert.
Hat einer von euch ein Idee ?
Ich habe folgendes versucht:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveWorkbook.SlicerCaches("Datenschnitt_KW").SlicerItems("7").Selected = True & _
ActiveWorkbook.SlicerCaches("Datenschnitt_KW").SlicerItems("8").Selected = False Then
Worksheets("Quelldaten").Select
ActiveSheet.Range("$A$1:$K$19").AutoFilter Field:=2, Criteria1:="7"
End If
End Sub
'''''''''''''''''''''''''''''''''''''''
Leider komme ich damit nicht zum Ziel.
Über eure Hilfe wäre ich sehr dankbar.
Im Anhang befindet sich eine Testdatei:
https://www.herber.de/bbs/user/127839.xlsm
Gruß,
Rafe