ich stehe vor folgendem Problem:
In einer Zelle E3 soll ein Konto eingegeben werden z.B. 500000
Sobald die Zelle geändert wird soll bei einem Datenschnitt der auf eine Pivottabelle beruht, der Filter auf 500000 gesetzt werden.
Das ist mein Code, ich habe mich bereits halb tot gegoogelt. Leider gibt es keine Wirkung wenn ich die Zelle E3 verändere.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.adress = "$E$3" Then
ActiveWorkbook.SlicerCaches("Datenschnitt_Sachkonto").ClearManualFilter
ActiveWorkbook.SlicerCaches("Datenschnitt_Sachkonto").SlicerItems(Range("E3").Value). _
Selected = True
End If
End Sub
Mit freundlichen Grüße,
Dieter