Slicer Methode
30.06.2016 09:52:11
dave
ich moechte eine EmailListe durchgehen und einen Slicer meiner pivottabelle nach dieser Liste selektieren. Der Slicer existiert bereits und traegt den Namen "Slicer_responsible_Manager"
Sub ManagerNotification()
Dim Zelle As Range
Dim ResponsibleManagerNewSelection As Variant
For Each Zelle In Worksheets("Email_List").Range("G2:G" & Cells(Rows.Count, "G").End(xlUp).Row)
ResponsibleManagerNewSelection = Zelle.Value
unselectAllBut (ResponsibleManagerNewSelection)
Next
End Sub
Hier meine Methode:
'waehlt nur einen manager als slicer aus
Public Sub unselectAllBut(ResponsibleManagerNewSelection As String)
ThisWorkbook.SlicerCaches("Slicer_responsible_Manager").SlicerItems(newSelection).Selected = _
_
True
Dim slc As SlicerItem
' hier wirft er mich mit Runtime Error 5 raus
For Each slc In ThisWorkbook.SlicerCaches(slicerName).SlicerItems
If Not slc.Caption = newSelection Then
slc.Selected = False
End If
Next slc
End Sub