Datenschnitt spiegeln

[cult]

Hi Leute,

folgendes Anliegen!

Ich habe 2 Pivot Tabellen mit unterschiedlichen Inhalten diese beide mit dem selben Datenschnitt angesteuert werden sollen. Datenschnitt Monat( Januar, Feb, März usw.)

Die Tabellen lassen sich nicht joinen.

Ich möchte aber das der Benutzer nicht beide Datenschnitte anklicken muss sondern nur einen. Der andere Datenschnitt soll sozusagen den anderen Spiegeln.
Gibt es dazu eine Lösung? Bin leider nicht so fit mit VBA.

Also wähle ich bei Datenschnitt 1 ABC aus soll Datenschnitt 2 auch ABC auswählen.
Da die Pivottabellen nicht die selbe Quelle haben lassen sie sich nicht über die Berichtsverbindung verbinden.

Danke für eure Hilfe.

Grüße Cult

[Fennek]

Hallo,

Bill Jelen hat das auf seinen youtube "MrExcel" voremacht.

Ea ist aber so komplex, dass ich es nicht aus dem Gedächtnis beschreiben kann.

mfg

[Dieter63]

Hallo ,

Ich denke du musst das neu aufbauen

Die Tabellen lassen sich nicht joinen.

der Trick ist, du brauchst eine 3. Tabelle  --> und da ist nur dein gemeinsamer Datenschnitt drin -> in deinem Fall der Monat
(oder wenn ein anderes Feld --> Werte zusammenkopieren und Duplikate entfernen

Beziehungen erstellen

Tabelle1-Monat   <--> Tabelle3-Monat
Tabelle2-Monat   <--> Tabelle3-Monat

Einfügen Pivot -> Achtung Dem datenmodell hinzufügen  X

Datenschnitt auswählen -->  Achtung  -->  Auf Tabelle 3  beziehen  -->  Berichtsverbindung aktivieren

Ok

[cult]

Das video von MrExcel hat mir weitergeholfen, also es würde mein Problem lösen wenn es gehen würde :D

Code:

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("Datenschnitt_Month_Created_On")
    Set sc2 = ThisWorkbook.SlicerCaches("Datenschnitt_Month_Created_On1")

    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

Leider bekomme ich immer einen Fehler in der For Each schleife

[schauan]

Hallo,

welcher Fehler kommt denn da?

[cult]

Sorry für die späte antwort.

Laufzeitfehler '5':
Ungültiger Prozeduraufruf oder ungültiges Argument


dabei kommt die Fehlermeldung im Sorcecode
sc2.SlicerItems(SI1.N...= < Ungültiger Prozeduraufruf oder ungültiges Argument>

[cult]

Okay ich habe die Lösung gefunden.

Da in meinem Datenschnitt noch Daten vorhanden sind die eig gelöscht sein sollten und auch nicht angezeigt werden außer ich mache das Häckchen dafür rein.
In meiner neu erstellten Datei funktioniert es nun.

Jetzt die nächste Frage wie entferne ich diese Datenüberbleibsel.

Ich habe bei" Pivottabellenoptionen > Daten > Anzahl der pro Feld beizubehaltende Elemtente: Keine " eingestellt, sowie unter "Datenschnitteinstellungen > Aus der Datenquelle gelöschte Elemente anzeigen " den Hacken entfernt...

Dennoch werden die Daten weiterhin angezeigt

Danke für eure Hilfe

Cult