Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Filter automatisch bei Pivottabellen übernehmen

Filter automatisch bei Pivottabellen übernehmen
29.05.2008 16:10:35
giovane293
Hallo,
Ich benötige noch mal eure Hilfe. Ich habe zwei Pivottabellen (bzw. 8 Pivottabellen). Wenn ich nun in Tabelle 1 einen Filter setze, würde ich es äußerst sinnvoll finden, wenn der Filter automatisch auch in Tabelle 2 , Tabelle 3 etc. übernommen wird.
https://www.herber.de/bbs/user/52700.xls
In der Suche bin ich nicht wirklich fündig geworden, komme auch mit VBA gar nicht klar.
Ich hoffe, irgendjemand kann mir hierbei helfen.
Danke und Gruß
Thomas

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filter automatisch bei Pivottabellen übernehmen
03.06.2008 14:08:54
lufrio1
Hallo Thomas,
dazu brauchst du nur ein Mini-Makro
irgendwo (z.B. in B2000: =B2 und B2001: =B3) außerhalb der Pivottabellen schreibst
den den Zellinhalt der einzelnen Filter der ersten Pivottabelle hin.
das Makro macht ausschließlich die Pivot-Aktualisierung und verweißt dabei auf B2000
und B2001.
Das kannst du sogar mit dem Makrorecorder.
Gruß
Lufrio

Anzeige
AW: Filter automatisch bei Pivottabellen übernehmen
04.06.2008 12:13:00
lufrio1
Hier ein Lösungsansatz
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable2").PivotFields("Abteilung").CurrentPage = _
Range("die Zelle in der ausserhalb der Tabelle die selektierte Abteilung steht").Value
ActiveSheet.PivotTables("PivotTable2").PivotFields("Mitarbeiter").CurrentPage = _
Range("die Zelle ausserhalb fuer Mitarbeiter").Value
ActiveSheet.PivotTables("PivotTable3").PivotFields("Abteilung").CurrentPage = _
Range(".........").Value
ActiveSheet.PivotTables("PivotTable3").PivotFields("Mitarbeiter").CurrentPage = _
Range("........").Value
gruss
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Filter automatisch bei Pivottabellen übernehmen


Schritt-für-Schritt-Anleitung

Um die Filter von einer Pivottabelle automatisch auf andere Pivottabellen zu übertragen, kannst du ein einfaches VBA-Makro verwenden. Hier sind die Schritte:

  1. Öffne die Excel-Datei mit deinen Pivottabellen.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (deine Datei)", wähle "Einfügen" und dann "Modul".

  4. Kopiere den folgenden Code in das Modul:

    Sub PivotFilterAktualisieren()
        Dim ws As Worksheet
        Set ws = ActiveSheet
    
        ' Aktualisiere die Pivottabellen
        ws.PivotTables("PivotTable1").PivotCache.Refresh
        ws.PivotTables("PivotTable2").PivotCache.Refresh
        ws.PivotTables("PivotTable3").PivotCache.Refresh
    
        ' Setze die Filterwerte
        ws.PivotTables("PivotTable2").PivotFields("Abteilung").CurrentPage = _
            ws.Range("B2000").Value
        ws.PivotTables("PivotTable2").PivotFields("Mitarbeiter").CurrentPage = _
            ws.Range("B2001").Value
        ws.PivotTables("PivotTable3").PivotFields("Abteilung").CurrentPage = _
            ws.Range("B2000").Value
        ws.PivotTables("PivotTable3").PivotFields("Mitarbeiter").CurrentPage = _
            ws.Range("B2001").Value
    End Sub
  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Führe das Makro aus: Drücke ALT + F8, wähle PivotFilterAktualisieren und klicke auf "Ausführen".


Häufige Fehler und Lösungen

  • Fehler: "PivotTable nicht gefunden"

    • Überprüfe, ob die Pivottabellen die korrekten Namen haben. Ändere den Code entsprechend, falls notwendig.
  • Fehler: "Wert nicht verfügbar"

    • Stelle sicher, dass die Zellen, auf die verwiesen wird (z.B. B2000 und B2001), gültige Werte enthalten.
  • Makro startet nicht

    • Überprüfe, ob Makros in deiner Excel-Datei aktiviert sind. Gehe zu "Datei" -> "Optionen" -> "Trust Center" -> "Einstellungen für das Trust Center" -> "Makroeinstellungen".

Alternative Methoden

Falls du kein VBA verwenden möchtest, kannst du auch folgende Methoden ausprobieren:

  1. Verknüpfte Zellen: Setze die Filterwerte in Zellen, die von den Pivottabellen referenziert werden. Jede Pivottabelle kann dann auf diese Zellen zugreifen, um die Filterwerte zu setzen.

  2. Verwende Slicer: Slicer ermöglichen eine einfache Filterung und können auf mehrere Pivottabellen angewendet werden. Du kannst Slicer hinzufügen, indem du auf die Pivottabelle klickst und dann "Slicer" im Menü auswählst.


Praktische Beispiele

Angenommen, du hast eine Excel-Datei mit mehreren Pivottabellen, die Verkaufsdaten analysieren. Wenn du den Filter auf "Region" in der ersten Pivottabelle auf "Nord" setzt, möchtest du, dass die anderen Pivottabellen diesen Filter ebenfalls übernehmen.

Verwende dazu das oben beschriebene Makro. Lege die Filterwerte in Zelle B2000 für die Region und B2001 für die Verkaufsmitarbeiter fest. Führe das Makro aus, um die Pivottabellen zu aktualisieren.


Tipps für Profis

  • Automatisiere die Aktualisierung: Du kannst das Makro so einstellen, dass es automatisch ausgeführt wird, wenn die Datei geöffnet wird oder wenn eine bestimmte Zelle geändert wird.

  • Verwende Named Ranges: Statt feste Zellbezüge zu verwenden, kannst du benannte Bereiche in Excel nutzen, um die Referenzen flexibler und leichter verständlich zu machen.

  • Optimiere die Leistung: Wenn du viele Pivottabellen hast, kann die Aktualisierung viel Zeit in Anspruch nehmen. Überlege, ob du die Anzahl der Pivottabellen reduzieren oder die Datenquelle optimieren kannst.


FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen?
Du kannst die Namen der Pivottabellen und die Zellreferenzen im Code ändern, um sie an deine spezifischen Anforderungen anzupassen.

2. Funktioniert das in allen Excel-Versionen?
Ja, die beschriebene Methode funktioniert in Excel 2010 und neueren Versionen, solange VBA unterstützt wird.

3. Muss ich die Datenquellen für alle Pivottabellen identisch halten?
Nicht unbedingt, aber es ist sinnvoll, wenn die Filter dieselben Werte haben sollen. Andernfalls musst du sicherstellen, dass die Filter an die jeweiligen Datenquellen angepasst sind.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige