Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1056to1060
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1056to1060
1056to1060
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Pivot mit gleichen Seitenfelder

Mehrere Pivot mit gleichen Seitenfelder
05.03.2009 17:30:38
loca
Hallo Zusammen
Ich habe in einem Excel zwei Pivots und ich möchte, dass wenn ich beim einem eine Auswahl in den Seitenfeldern treffe, dieselbe Auswahl auch für die Seitenfelder des anderen Pivots gilt.
Kann mir da jemand helfen?
Besten Dank und freundliche Grüsse
Martin Lo Cascio

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Pivot mit gleichen Seitenfelder
05.03.2009 18:34:54
fcs
Hallo Martin,
das folgende Makro muss du im VBA-Editor unter den Tabellenblättern mit den Pivottabellen einfügen
Im Code muss du dann die Nummer der Pivottabelle und den Namen des jeweils anderen Tabellenblatts anpassen. Falls die PivotTabellen beide auf dem gleichen Tabellenblatt sind, dann müssen pvTab01 ähnlich wie pvTab02 gesetzt werden.
Gruß
Franz

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim pvTab01 As PivotTable, pvTab02 As PivotTable
Dim pvField01 As PivotField, pvField02 As PivotField, varPage As Variant
On Error GoTo Fehler
Application.EnableEvents = False
Set pvTab01 = Target
Set pvTab02 = Worksheets("Pivot02").PivotTables(1) 'hier Tabellennamen anpassen
For Each pvField01 In pvTab01.PageFields
Set pvField02 = pvTab02.PageFields(pvField01.Name)
varPage = pvField01.CurrentPage
pvField02.CurrentPage = varPage
Resume01:
Next
Fehler:
With Err
If .Number  0 Then
MsgBox "Fehler-Nr. " & .Number & vbLf & .Description
Resume Resume01
End If
End With
Application.EnableEvents = True
End Sub


Anzeige
AW: Mehrere Pivot mit gleichen Seitenfelder
05.03.2009 19:13:02
loca
Besten Dank für den Vorschlag mit VBA, kann man das auch ohne VBA lösen z.B. mit einem einfachen verlinken der Zellen?
Gruss
loca
Das geht nicht ohne VBA!
06.03.2009 09:43:46
Renee
Hi Loca,
IMHO geht das nicht ohne VBA. Es sei denn deine Pivot2 benutzt als Quelle Pivot1 und hat die gleichen Seitenfelder. Dann sollte eigentlich Pivot2 automatich mit Pivot1 wechseln.
GreetZ Renée
AW: Das geht nicht ohne VBA!
06.03.2009 12:34:39
fcs
Hallo Renée und Loca,
so eine Sychronisation 2er Pivot-Tabellen funktioniert auch IMHO nur per VBA. Auch dann, wenn die Pivots die gleiche Datenquelle und die gleichen Seitenfelder haben, passen sie sich nicht automatisch an.
Gruß
Franz
Anzeige
AW: Das geht nicht ohne VBA!
11.03.2009 14:27:36
loca
hallo zusammen
besten dank für die antworten
gruss
loca

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige