Slicers koppelen van verschillende data sets

[Bram1212]

Goedemorgen,

Op mijn werk maak ik gebruik van BI kubussen. Echter zijn er meerdere kubussen met verschillende data. Nu wil ik een slicer toepassen die werkt op meerdere data sets.

Ik heb 1 overzicht worksheet waar de 2 slicers op staan. Beide slicers zijn gelinkt aan 3 kubussen (uit 2 data sources).

Ik gebruik nu het volgende via VBA:

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim sc1 As SlicerCache
Dim sc2 As SlicerCache
Dim SI1 As SlicerItem

' These names come from Slicer Settings dialog box
Set sc1 = ThisWorkbook.SlicerCaches("Slicer_ISO_Year____Week____Day")
Set sc2 = ThisWorkbook.SlicerCaches("Slicer_ISO_Year____Week____Day1")

Application.ScreenUpdating = False
Application.EnableEvents = False

sc2.ClearManualFilter

For Each SI1 In sc1.SlicerItems
sc2.SlicerItems(SI1.Name).Selected = SI1.Selected
Next SI1

Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Echter pakt hij hem niet. Iemand enig idee?

 

[Bram1212]

Bekijk bijlage Test.xlsmBekijk bijlage Test.xlsm