Office: Ein Bereichsfilter für zwei Pivot Tabellen?

Hi,

ich will eine Mitarbeiter-Auswertung machen, habe dafür einmal Ergbnisse auf Wochen-Basis und einmal auf Monats-Basis.

Ich möchte am Ende die Möglichkeit haben, einen Mitarbeiter per Drop-Down auszuwählen und zwei Diagramme zu erhalten, eines auf Wochen und eines auf Monatsbasis.

Kann ich einen Bereichsfilter auch auf zwei Tabellen anwenden?

Grüße, FelixFlens

 

Hallo!

Ich habe dazu diesen Link gefunden. Da scheint allerdings vielleicht noch ein Fehler vorzuliegen, aber das habe ich nicht getestet.

 

Grüezi Felix

Ja, das klappt mit VBA-Programmierung recht gut, hängt aber stark davon ab, wie viele PT's in der Mappe vorhanden sind und ob alle miteinander und gegenseitig synchronisiert wersen sollen.
Auch der Name des Feldes im Bereichsfilter sollte identisch sein, das müsste aber bei gleicher Datenbasis passen.

Kannst Du dazu bitte noch ein paar Angaben machen?


Nachtrag:
Ich habe eben nochmal getestet und folgendes sollte klappen, wenn (und das ist wichtig) immer nur ein Name im Berichtsfilter augewählt wird.
Das Feld heisst in meinem Falle 'Name' - das musst Du auf die Bezeichnung in deinen PTs anpassen.

Kopiere den Code in 'Diese Arbeitsmappe' und wähle dann in irgend einer PT einen Namen im Berichtsfilter - alle anderen mit identischem Feld passen sich dann automatisch an.

Code:

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
    Dim ws               As Worksheet
    Dim pt               As PivotTable
    Dim pf               As PivotField

    On Error GoTo ErrorHandler
    Application.EnableEvents = False
    For Each ws In ThisWorkbook.Worksheets
        For Each pt In ws.PivotTables
            If (ws.Name = Sh.Name) And (pt.Name = Target.Name) Then
                GoTo SamePT
            Else
                pt.PivotFields("Name").CurrentPage = _
                Target.PivotFields("Name").CurrentPage.Value
            End If
SamePT:
        Next pt
    Next ws
ErrorHandler:
    Application.EnableEvents = True
End Sub

 

Super danke, das werde ich mal probieren.

Der Bereichsfilter ist bei allen gleich, ja ... es sollen alle Tabellen anhand der MA-ID generiert werden.