Datenschnitteinstellungen auf einen anderen übertr

Hallo zusammen,
ich habe mit großem Interesse diesen
https://www.herber.de/forum/archiv/1292to1296/1292743_PivotDatenschnitte_per_VBA_auslesen.html Thread gelesen in dem Datenschnitte ausgelesen und die Einstellungen in einem Array gespeichert werden.
Für mein aktuelles Projekt müsste ich allerdings weiter gehen: Ich habe ungefähr ein Dutzend Pivottabellen die alle auf den gleichen Rohdaten basieren und von mehreren, mit allen PT verbundenen Slicern gesteuert werden. Für eine Auswertung muss aber der Bericht etwas verändert werden, so dass eine darauf basierende PT nicht mehr den selben PivotCache nutzt und somit nicht mehr mit den Slicern verbunden werden können. Da die "Kategorien" der Rohdaten identisch bleiben, hat ein Slicer für die "neue" PT zwingend die gleichen Einträge wie die "alten".
Meine Idee war es, den Slicer mit dem oben genannten Code von fcs bei jeder Veränderung auszulesen und die Einstellungen an den neuen Slicer zu übertragen. (Oder gibt es vielleicht noch eine einfacherere Variante?)
Allerdings scheitere ich schon daran nur einen einzigen Slicer anstatt aller anzusprechen, da mir nicht ganz klar ist wie mit dem objslicer.cache umzugehen ist. Ich stelle mir den Rest der Aufgabe, nämlich das Ausspielen des Arrays auf einen anderen Datenschnitt gar nicht mehr so schwierig vor. Jedoch komme ich mit meinen bescheidenen VBA kenntnissen hier nicht weiter. Dass das Makro bei jeder Veränderung eines Slicers aufgerufen wird, habe ich schon erreichen können.
Danke und beste Grüße!
Pochi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'Erstellt unter Excel 2010 Sub Datenschnitte_abgleichen() 'Datenschnitte von Pivottabellen in Arbeitsmappe ableichen Dim objSlicerCache As SlicerCache, objItem As SlicerItem Dim objSlicerCache2 As SlicerCache Dim intJ As Integer Dim arrSlicerCacheNames1, arrSlicerCacheNames2 'Die Namen der Datenschnitte findet man im Dialogfenster "Datenschnitteinstellungen" _ hinter "In Formeln zu verwendender Name" 'Array mit Namen der originalen/vorgebenden Datenschnitte arrSlicerCacheNames1 = Array("Datenschnitt_Feld01", "Datenschnitt_Währung") 'Array mit Namen der abzugleichenden Datenschnitte arrSlicerCacheNames2 = Array("Datenschnitt_Feld011", "Datenschnitt_Währung1") On Error Resume Next 'kann man weglassen, wenn in den Datenschnitten _ die gleichen Items vorhanden sind. For intJ = LBound(arrSlicerCacheNames1) To UBound(arrSlicerCacheNames1) Set objSlicerCache = ActiveWorkbook.SlicerCaches(arrSlicerCacheNames1(intJ)) Set objSlicerCache2 = ActiveWorkbook.SlicerCaches(arrSlicerCacheNames2(intJ)) 'objSlicerCache2.ClearManualFilter 'nicht unbedingt erforderlich For Each objItem In objSlicerCache.SlicerItems objSlicerCache2.SlicerItems(objItem.Name).Selected = objItem.Selected Next Next End Sub

(beide Slicer ohne aktivierte (geklickte) Buttons) 1. Quellslicer Button 1 geklickt 2. Makro ausgeführt -> Button 1 auch im Zielslicer aktiviert 3. Quellslicer Button 1 erneut geklickt (deaktiviert) und Button 2 aktiviert 4. Makro erneut ausgeführt -> Im Zielslicer sind jetzt Button 1 (fälschlicherweise) und Button 2 aktiviert

Hallo Pochi,
bei mir hat das Makro funktioniert, sowohl mit einem als auch 2 Datenschnitten als Quellslicer.
(beide Slicer ohne aktivierte (geklickte) Buttons)
1. Quellslicer Button 1 geklickt
2. Makro ausgeführt -> Button 1 auch im Zielslicer aktiviert
3. Quellslicer Button 1 erneut geklickt (deaktiviert) und Button 2 aktiviert
4. Makro erneut ausgeführt -> Im Zielslicer sind jetzt Button 1 (fälschlicherweise) und Button 2 aktiviert

Slicer ohne aktivierte Buttons gibt es nicht. Mindestens 1 Button ist immer aktiv bzw. muss immer aktiv sein.
Einen einzelnne Button kann man nicht deaktivieren. Klickt man auf einen 2. Button, dann werden die anderen Buttons deaktiviert. Bei gedrückter Strg-Taste kann man auch mehrere Buttons selektieren.
Ich hab jetzt noch ein wenig rumprobiert und es gibt tatsächlich Situationen, in denen im Zielslicer die alte Einstellung nicht geändert wird. Das ist immer dann der Fall, wenn eine alte Einstellung deaktiviert werden soll, aber noch keine neue gesetzt ist. Da im Slicer immer mindestens ein Item aktiv sein muss wird die alte Einstellung dann nicht aktiviert.
Abhilfe:
Variante A:

  For intJ = LBound(arrSlicerCacheNames1) To UBound(arrSlicerCacheNames1)
Set objSlicerCache = ActiveWorkbook.SlicerCaches(arrSlicerCacheNames1(intJ))
Set objSlicerCache2 = ActiveWorkbook.SlicerCaches(arrSlicerCacheNames2(intJ))
objSlicerCache2.ClearManualFilter 'alle Items aktivieren
'nicht gesetzte Items deaktiveren
For Each objItem In objSlicerCache.SlicerItems
Ff objItem.Selected = False Then
objSlicerCache2.SlicerItems(objItem.Name).Selected = False
End If
Next
Next

Variante B:

  For intJ = LBound(arrSlicerCacheNames1) To UBound(arrSlicerCacheNames1)
Set objSlicerCache = ActiveWorkbook.SlicerCaches(arrSlicerCacheNames1(intJ))
Set objSlicerCache2 = ActiveWorkbook.SlicerCaches(arrSlicerCacheNames2(intJ))
'gesetzte Items aktivieren
For Each objItem In objSlicerCache.SlicerItems
If objItem.Selected = True Then
objSlicerCache2.SlicerItems(objItem.Name).Selected = True
End If
Next
'nicht gesetzte Items deaktivieren
For Each objItem In objSlicerCache.SlicerItems
If objItem.Selected = False Then
objSlicerCache2.SlicerItems(objItem.Name).Selected = False
End If
Next
Next

Gruß
Franz

Beliebteste Forumthreads (12 Monate)

Datenschnitteinstellungen auf einen anderen übertr

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread