Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1292to1296
1292to1296
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pivottabelle - Berichtsfilter mit vba ändern

Forumthread: Pivottabelle - Berichtsfilter mit vba ändern

Pivottabelle - Berichtsfilter mit vba ändern
12.01.2013 22:35:50
Constantin
Hallo,
wer könnte mir einen Tipp geben zu folgendem Problem: In einer Aktualisierungsroutine (Private Sub Before Save ...) verwende ich den Befehl "ThisWorkbook.RefreshAll". Jetzt würde ich gerne noch bei allen Pivottabellen in Tabelle2 im Berichtsfilter den Wert einer Variablen (Jahr) als Kriterium einsetzen. Aufgezeichnet am Beispiel sieht es so aus:
ActiveSheet.PivotTables("PivotTable1").PivotFields("Year").ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields("Year").CurrentPage = "2013"
Zwei Filter sind jeweils gesetzt, nur den Filter mit "Year" möchte ich jeweils ändern.
Wie könnte so eine Schleife aussehen?
Über einen Vorschlag würde ich mir freuen.
Grüße, Constantin

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pivottabelle - Berichtsfilter mit vba ändern
13.01.2013 02:15:36
fcs
Hallo Constantin,
probiere mal folgendes: 
Sub aatest()
Dim pvTab As PivotTable
varPageWert As Variant
varPageWert = "2013"
For Each pvTab In ActiveWorkbook.Worksheets("Tabelle2")
pvTab.PivotFields("Year").ClearAllFilters
pvTab.PivotFields("Year").CurrentPage = varPageWert
Next
End Sub

Ich hatte früher aber schon Probleme bei dem Versuch per VBA den Wert von Seitenfeldern zu setzen, wenn es sich um Ziffernfolgen/Zahlen handelt. Excel machte dann intern irgendwelche Conversionen der Werte so das der Werte-Typ (Zahl/Text) zwischen Quelldaten und Seitenfeld nicht mehr übereinstimmte und zu Fehlern bei der Neuberechnung der Pivot führte.
Gruß
Franz

Anzeige
AW: Pivottabelle - Berichtsfilter mit vba ändern
13.01.2013 09:23:30
Constantin
Hallo Franz,
vielen Dank. Ich teste einfach mal, wie es mit Zahlen/Ziffern in diesem Fall klappt und gebe dann nochmal eine Rückmeldung.
Grüße, Constantin

AW: Pivottabelle - Berichtsfilter mit vba ändern
13.01.2013 20:02:43
Constantin
Hallo Franz,
im Moment scheint es noch mit einer anderen Routine zu "kollidieren". Ich werde es noch in neutralem Umfeld testen. Es hilft mir auf jeden Fall weiter.
Grüße und nochmals vielen Dank.
Constantin
Anzeige
;

Forumthreads zu verwandten Themen

VBA: Autofilter auf "0" setzen
David

Hallo zusammen.
Wenn in der Datei ein Autofilter gesetzt ist und auch in einem beliebigen Feld ein Kriterium gesetzt ist, wie bekomme ich per VBA die Anzeige ALLER Elemente hin.
Mein Versuch mit Range(XYZ).Autofilter
löscht diesen komplett, was aber nciht gewollt ist. Und .Autofi...
27.08.2009 09:53:08
Thread-ID: 1098941
3 Beiträge
Anzeige
Per VBA Änderung im Berichtsfilter abfragen PIVOT
Holger,

Hallo,
ich habe einen Worksheet mit 30 PivotTabellen.
Jede ist im Prinzip gleich aufgebaut, im Berichtsfilter gibt es zwei Elemente.
Wenn in dem einem Element etwas anderes ausgewählt wird, soll dies
automatisch auch für alle anderen PivotTabellen ausgewählt werden.
Wie läss...
04.01.2011 19:32:14
Thread-ID: 1193893
5 Beiträge
Anzeige
PivotTabelle - Filter per VBA
Jonathan

Hallo zusammen!
Ich möchte einen Filter meiner PivotTabelle per VBA ändern - leider müssen mehrere Werte zugelassen werden. Beim Aufzeichnen wird erst jedes Feld deaktiviert und dann das gewünschte aktiviert. Gibt es eine Möglichkeit, per Schleife o.ä. automatisch alle Auswahlmöglichkeiten...
27.06.2011 16:38:17
Thread-ID: 1219906
3 Beiträge
Anzeige
Berichtsfilter in Pivot per VBA auswählen
Jens

Hallo,
ich versuche per VBA, den Berichtsfilter in einer Pivot-Tabelle zu ändern.
Folgenden Code benutze ich:
Ges = Range("v5").Value
ActiveSheet.PivotTables("PivotTable1").PivotFields("Gesellschaft").CurrentPage _
= Ges
Fehlermeldung:
Laufzeitfehler '5'
Ungültig...
13.09.2011 12:30:14
Thread-ID: 1229652
2 Beiträge
Anzeige
Pivotspaltenfilter per Variable setzen
david.a2k

Hallo,
ich habe eine Pivot Tabelle.
Diese setzt sich aus dem Berichtsfilter A1:B4 und den Spalten (Zeilenbeschriftungen) A6:G100 (ungefiltert) zusasmmen.
Wie kann ich nun per VBA einen Filter in Zelle C6 setzen.
Das Fitlerelement wird dabei als Variable geliefert.
Z.B. Filte...
14.10.2013 11:45:23
Thread-ID: 1334310
3 Beiträge
Pivot Filter aufgrund von Variablen setzen
Variablen

Schönen guten Tag!
Ich habe ein funktionierndes Makro das mir in einem Tabellenblatt einen Pivotfilter immer um eins weiter setzt und die restlichen Filter ausblendet.
Leider dürfte das Makro das recht umständlich machen da immer alle ein und alle ausgeblendet werden und nur der aktuell...
19.02.2014 15:41:22
Thread-ID: 1350391
2 Beiträge
Pivot Filter per VBA Makro > als einstellen
Andreas

Hallo,
nach längerem vergeblichem Suchen wende ich mich nun an euch da Ihr mir bestimmt weite helfen könnt.
Bei einer Pivot, möchte ich den Berichtsfilter per VBA Makro einstellen. Soweit eigentlich kein Problem, nur enthält der filter "Kalenderwochen" und das Makro soll nur die aktuell...
01.04.2014 14:56:28
Thread-ID: 1355696
3 Beiträge
Pivot Filter per VBA Makro_2
Andreas

Hallo Allerseits,
da ich leider in meinem alten Beitrag nicht antworten kann (warum auch immer)
habe ich hier einen neuen Beitrag erstellt.
Von Franz habe ich folgenden Code bekommen der mir einen Pivotfilter auf die aktuelle Kalenderwoche einstellt.
Dieser code lauft automatisc...
24.04.2014 15:16:00
Thread-ID: 1358475
5 Beiträge
VBA Autofilter zurücksetzen wenn!
Thomas

Hallo zusammen!
Ich habe per VBA den Autofilter in meiner Tabelle gesetzt und es funktioniert auch wenn ich in A1 den Suchbegriff eintrage aber ich muss wenn ich alles sehen möchte den Filter von Hand zurücksetzten.
Wie kann man das auch per Code erreichen wenn A1 = "" oder aber "alle"...
16.05.2014 14:55:57
Thread-ID: 1361949
6 Beiträge
In VBA Autofilter mit spitzer Klammer setzen
Chris

Hallo allerseits,
in einer Tabelle habe ich eine Spalte mit Autofilter. Die Werte des Autofilters sind Höhenangaben wie z.B. "1 m", "2 m", aber es kommt auch der Wert "> 5 m" vor, sprich größer wie 5 Meter.
In VBA setze ich den Autofilter mit der Variable "wert"
ActiveSheet.Range...
05.12.2014 11:21:09
Thread-ID: 1396296
3 Beiträge
Pivot Table via VBA
Matthias

Hi,
Hi, I wanted to create a pivot table with using VBA (since I have to adjust a few options for each colomn and that is quite annoying if the number of columns is sufficienty high ;-) ) So I recorded a Macro and did the steps manually in Excel. Below you see the first part of the code of...
12.12.2014 11:28:45
Thread-ID: 1397544
2 Beiträge
Excel 2010 Pivot Filter ändern per VBA
Marcel

Hallo zusammen,
gerne möchte ich per VBA den Filter eines Feldes einer Pivot Tabelle (Tabellenblatt "E3.1") welches ich als Zeilenbeschriftung gewählt habe auf den Wert setzen (z. B. Berichtsjahr = 2014), den ich in Zelle B1 des Tabellenblattes "Optionen" eintrage.
Könnt Ihr mir da weit...
12.01.2015 15:38:31
Thread-ID: 1402271
10 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Pivottabelle - Berichtsfilter mit VBA ändern

Schritt-für-Schritt-Anleitung

Um den Berichtsfilter einer Pivottabelle mithilfe von VBA zu ändern, kannst du die folgenden Schritte befolgen:

  1. Öffne den VBA-Editor:

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

  2. Erstelle ein neues Modul:

    • Klicke im Menü auf Einfügen und wähle Modul.

  3. Füge den folgenden Code ein:

    Sub BerichtsfilterAendern()
   Dim pvTab As PivotTable
   Dim varPageWert As Variant
   varPageWert = "2013" ' Setze hier dein gewünschtes Jahr

   For Each pvTab In ActiveWorkbook.Worksheets("Tabelle2").PivotTables
       pvTab.PivotFields("Year").ClearAllFilters
       pvTab.PivotFields("Year").CurrentPage = varPageWert
   Next pvTab
End Sub

  4. Führe das Makro aus:

    • Gehe zurück zu Excel und drücke ALT + F8, wähle dein Makro aus und klicke auf Ausführen.

  5. Aktualisiere die Pivottabelle:

    • Verwende ActiveSheet.RefreshAll, um sicherzustellen, dass alle Änderungen aktualisiert werden.

Häufige Fehler und Lösungen

  • Fehler: Typenkonflikt
    Wenn du mit Zahlen arbeitest, achte darauf, dass die Datentypen zwischen den Quelldaten und dem Pivottabellenfeld übereinstimmen. Nutze CStr() oder CInt(), um sicherzustellen, dass die Typen konvertiert werden.

  • Fehler: Pivottabelle nicht gefunden
    Stelle sicher, dass der Name der Pivottabelle korrekt ist. Du kannst die Namen in der Excel-Oberfläche überprüfen.

  • Lösung: Leere Zeilen oder Spalten
    Wenn deine Pivottabelle leer bleibt, überprüfe, ob die Datenquelle korrekt ist und keine leeren Zeilen oder Spalten enthält.

Alternative Methoden

  • Direkte Anpassung in Excel: Du kannst auch manuell die Filter in der Pivottabelle anpassen, indem du mit der rechten Maustaste auf das Feld klickst und den gewünschten Wert auswählst.

  • Verwendung von Slicern: Slicer bieten eine benutzerfreundliche Möglichkeit, Filter in Pivottabellen zu setzen, ohne dass du VBA verwenden musst.

Praktische Beispiele

Hier sind einige praktische Anwendungsbeispiele für den VBA-Code:

  1. Ändern des Jahresfilters:

    varPageWert = "2020" ' Ändere den Filter auf 2020

  2. Anwenden auf mehrere Pivottabellen:

    For Each pvTab In ActiveWorkbook.Worksheets("Tabelle2").PivotTables
   If pvTab.Name = "PivotTable1" Then
       pvTab.PivotFields("Year").CurrentPage = varPageWert
   End If
Next pvTab

  3. Filter für mehrere Felder:

    pvTab.PivotFields("Category").CurrentPage = "Sales"

Tipps für Profis

  • Verwende Application.ScreenUpdating = False, um das Flackern des Bildschirms während der Ausführung des Makros zu verhindern.
  • Teste deinen Code zunächst mit einer Kopie deiner Datei, um Datenverluste zu vermeiden.
  • Nutze die Debug.Print-Anweisung, um Variablenwerte während der Ausführung zu überwachen.

FAQ: Häufige Fragen

1. Wie setze ich den Berichtsfilter auf mehrere Werte?
Du kannst den Berichtsfilter nicht direkt auf mehrere Werte setzen. Du müsstest die Filter nacheinander anwenden oder einen Slicer verwenden.

2. Was ist der Unterschied zwischen ClearAllFilters und CurrentPage?
ClearAllFilters entfernt alle Filter für das PivotField, während CurrentPage nur einen bestimmten Wert für den Filter setzt.

3. Kann ich auch andere Felder filtern?
Ja, du kannst den gleichen VBA-Ansatz verwenden, um andere Felder in der Pivottabelle zu filtern, indem du einfach den Namen des PivotFields anpasst.

Beliebteste Forumthreads (12 Monate)

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