Registriert seit: 22.02.2017
Version(en): 2010
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
Registriert seit: 06.12.2015
Version(en): 2016
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
Folgende(r) 1 Nutzer sagt Danke an Fennek für diesen Beitrag:1 Nutzer sagt Danke an Fennek für diesen Beitrag 28
• cult
Registriert seit: 29.01.2018
Version(en): 2013
Hallo ,
Ich denke du musst das neu aufbauen
Zitat: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
Folgende(r) 1 Nutzer sagt Danke an Dieter63 für diesen Beitrag:1 Nutzer sagt Danke an Dieter63 für diesen Beitrag 28
• cult
Registriert seit: 22.02.2017
Version(en): 2010
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
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallo,
welcher Fehler kommt denn da?
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:1 Nutzer sagt Danke an schauan für diesen Beitrag 28
• cult
Registriert seit: 22.02.2017
Version(en): 2010
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>
Registriert seit: 22.02.2017
Version(en): 2010
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