Mehrere Pivot mit gleichen Seitenfelder

Forumthread: 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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

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)

Mehrere Pivot mit gleichen Seitenfelder

Forumthread: Mehrere Pivot mit gleichen Seitenfelder

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread