Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1324to1328
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
1324to1328
1324to1328
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

PivotFields mit mehreren Ausdrücken Filtern

PivotFields mit mehreren Ausdrücken Filtern
29.07.2013 12:29:07
Marlene
Hallo,
ich möchte mit VBA verschiedene Elemente eines PivotFields Filtern (z.B. "ABC,DEF,HHH")
Um zunächst die einzelnen Werte zu bekommen, splitte ich erst mal per "Split" in ein Array auf.
Nun habe ich Probleme, das PivotField zu filtern.
Ich habe Probiert, das Array PivotField("xxx").CurrentPageList zu setzen, ging aber nicht, immer ein Objektorientierter Fehler.
Dann habe ich versucht, die einzelnen Werte durchzugehen und ggf. auf False zu setzen. Problem dabei ist, dass es sehr viele Einträge sind & das dauert dann recht lange.
Weiß jemand einen schnellen & einfachen weg, die Filter zu setzen? Danke!
Grüße,
Marlene

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

Betreff
Datum
Anwender
Anzeige
AW: PivotFields mit mehreren Ausdrücken Filtern
31.07.2013 19:55:07
fcs
Hallo Marlene,
ich hab probiert, ob man in Pivottabellen, die auf einer Exceltabelle basieren, die Filter (ähnlich wie beim Autofilter) drekt über ein Array setzen kann. Hab leider auch keine Lösung gefunden. Hier meine Lösung, die ich verwende, wenn ich bei den Filtern haüfig eine große Anzahl von Filterwerden für ein Element setzen muss.
Wichtig für die Geschwindigkeit sind hier die Deaktivierung der Bildschirmaktualisierung und der automatischen Berechnungen, Die Events sind nur relevant, wenn man in die Dateien noch Ereignismakros eingebaut hat, die durch die Änderungen an dem Pivotbericht gestartet werden.
Gruß
Franz 
Sub aaTestPivot()
Dim pvtab As PivotTable
Dim pvField As PivotField, arrFilter, arrNewFilter()
Dim i2 As Integer, i3 As Integer, bolVisible As Boolean
Dim pvItem As PivotItem
'Array mit Filterwerten
arrFilter = Split("A002,A004,A009", ",")
Set pvtab = ActiveSheet.PivotTables(1)
Set pvField = pvtab.PivotFields("Feld02") 'Feldname anpassen
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
pvField.ClearAllFilters
pvField.EnableMultiplePageItems = True
For Each pvItem In pvField.PivotItems
bolVisible = False
For i2 = LBound(arrFilter) To UBound(arrFilter)
If pvItem.Name = arrFilter(i2) Then
bolVisible = True
Exit For
End If
Next i2
If bolVisible = False Then
i3 = i3 + 1
ReDim Preserve arrNewFilter(1 To i3)
arrNewFilter(i3) = pvItem.Name
End If
Next
For i3 = LBound(arrNewFilter) To UBound(arrNewFilter)
pvField.PivotItems(arrNewFilter(i3)).Visible = False
Next
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
End Sub

Anzeige
AW: PivotFields mit mehreren Ausdrücken Filtern
01.08.2013 10:56:01
Marlene
Vielen Dank!

301 Forumthreads zu ähnlichen Themen

Pivot berechnetes Feld
Peter

Hallöchen zusammen,
entweder stelle ich mich zu dämlich an, oder ich kapiere die Pivot wirklich nicht.
Habe eine Tabelle, aus der ich mir die Daten ziehe.
In die Datenfelder der Pivot kommt die gesamte Anzahl von Datensätzen.
In die Spaltenfelder die Differenzierung eines bestim...
15.08.2008 10:34:52
Thread-ID: 1002088
4 Beiträge
Anzeige
Pivot-Table-Makro in mehreren Tabellen-Blättern
Ela

Liebe Fachleute,
ich habe eine Arbeitsmappe mit mehreren Tabellen-Blättern. Nun habe ich ein Makro zur Erstellung einer Pivot-Tabelle aufgenommen. Ich möchte, unabhängig davon, auf welchem Tabellenblatt ich mich gerade befinde, das Makro ablaufen lassen. Und zwar so, dass das Makro immer au...
26.08.2008 10:04:08
Thread-ID: 1004699
3 Beiträge
Datenbereich dynamisch in Pivot-Tabelle einbinden
Markus

Hallo allerseits,
ich habe folgendes Problem. Für die Erstellung einer Pivot-Tabelle muß ich den Datenbereich manuell selektieren. Da sich aber mein Datenbereich ständig ändert, würde ich das ganze automatisiert selektieren lassen. Wie krieg' ich das in dem folgenden Makro unter ?:
Rang...
02.09.2008 14:20:30
Thread-ID: 1006792
4 Beiträge
Anzeige
aus ausgewählter Datei Tabellenblätter kopieren
Katrin

Hallo, wer kann mir helfen?
Ich möchte aus einer, vorher in einem Dialogfenster ausgewählten Datei (immer unterschiedlich), den Inhalt mehrerer Tabellenblätter in eine andere Datei kopieren. Dabei sind die Bezeichnungen der Tabellenblätter in den beiden Dateien identisch. Bis zum 1. Tabelle...
17.09.2008 10:35:00
Thread-ID: 1010267
2 Beiträge
Pivot Datenauswahl Müll entfernen
Susanne

Hallo,
habe folgendes Problem.
Habe eine Pivottabelle erstellt, die ich seit einiger Zeit nutze.
In der Eingabeliste standen zwischenzeitlich Daten, die falsch bzw. nicht mehr aktuell sind.
In der Datenauswahl der Pivottabelle (wo man die Häkchen reinmacht, um die anzuzeigen...
25.09.2008 13:31:00
Thread-ID: 1012317
5 Beiträge
Aus zwei Tabellen eine Machen
SebastianSchelb

Hallo ich brauche euere Hilfe. Aleine schaffe ich es einfach nicht.
Ich habe eine zwei Tabelle mit Wörtern die zusammengefasst werden soll in eine Tabelle, in welcher aber kein Wort doppelt sein soll. Die anzahl der Wörter der 1. und 2. Tabelle vareieren von Tag zu Tag
Tabelle 1 (in der...
06.10.2008 14:52:00
Thread-ID: 1014455
5 Beiträge
Help - Tabellenblätter nacheinander auslesen
Markus

Hallo zusammen,
ich habe eine Datei mit verschiedenen Tabellen.
In der Tabelle 1 (Spalte A, beginnend mit Zeile 2) sind alle Tabellennamen aufgeführt, die in der Datei nach der Tabelle 1 vorkommen.
Ich möchte nun in einer variablen Schleife (so oft, wie Namen in der Tabelle 1 steh...
07.10.2008 19:22:33
Thread-ID: 1014799
6 Beiträge
Seitenfeld mit Datum in Pivottabelle
Peter

Hallo zusammen,
ich habe folgendes problem mit einer Pivottabelle:
in den Ursprungsdaten stehen u.a. Datumsangaben. Diese sollen in der Pivottabelle im Seitenfeld verwendet werden. Allerdings möchte ich nicht, dass jeder Datumswert dort angezeigt wird sondern eine Zusammenfassung der Mo...
08.10.2008 11:17:51
Thread-ID: 1014965
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
2
3
1
1
4
4
5
3
4
3
5
10
1
5
3
6
1
2
3
5
1
2
3