Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1660to1664
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
Inhaltsverzeichnis

Pivot-Tabelle Currentpage ungleich <>

Pivot-Tabelle Currentpage ungleich <>
13.12.2018 10:51:51
Friederike
Hallo
Ich will in einer Pivot-Tabelle filtern. Dies klappt super
varPageWert = "3_40_999_999_99_99"
ActiveSheet.PivotTables("PivTable1").PivotFields("Account").CurrentPage = varPageWert
Jetzt hätte ich gerne, dass alles gezeigt wird AUSSER varPageWert.
GEHT NICHT:
varPageWert = " 3_40_999_999_99_99"
ActiveSheet.PivotTables("PivTable1").PivotFields("Account").CurrentPage = varPageWert

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pivot-Tabelle Currentpage ungleich <>
14.12.2018 21:53:22
fcs
Hallo Frederieke,
es ist leider nicht so einfach den Filter bei Seitenfeldern anzupasen.
Hier müssen zunächst alle Items sichtbar geschaltet werden, dann kann man ausblenden.
LG
Franz
Sub prcPivotTab_Pagefield()
Dim pvTab As PivotTable, pvField As pivotField, strItemName As String
Set pvTab = ActiveSheet.PivotTables(1) 'oder ActiveSheet.PivotTables("PivTable1")
pvTab.RefreshTable
Set pvField = pvTab.PivotFields("Account")
If pvField.EnableMultiplePageItems = False Then _
pvField.EnableMultiplePageItems = True
Call prcShow_All_Page_Items(pvField)
On Error Resume Next 'dadurch werden ggf. Items ohne Daten übersprungen
strItemName = "3_40_999_999_99_99"
pvField.PivotItems(strItemName).Visible = False
End Sub
Sub prcShow_All_Page_Items(pivotField As pivotField)
'Pivot-Tabelle: Alle Items eines Pagefields anzeigen
Dim pvItem As PivotItem
On Error Resume Next 'dadurch werden Alt-Items ohne Daten übersprungen
pivotField.CurrentPage = "(All)"
For Each pvItem In pivotField.PivotItems
If pvItem.Visible = False Then pvItem.Visible = True
Next
Err.Clear
End Sub

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige