Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1688to1692
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
Pivot-Tabelle Filtern
26.04.2019 22:28:11
Olga
Hallo,
ich möchte eine Pivot-Tabelle filtern.
Leider funkt`s nicht!
Sub Namen_auswählen()
Dim Pivot_Item As PivotItem
Dim sName As String
sName = "Name 1"
With ActiveSheet.PivotTables("Muster").PivotFields("Artikel")
For Each Pivot_Item In .PivotItems
Pivot_Item.Visible = True
Next
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("Muster").PivotFields("Name")
For Each Pivot_Item In .PivotItems
'            If .PivotItems(sName) = sName Then
If .PivotItems(sName)  "" Then
Pivot_Item.Visible = True
Else
.Pivot_Item.Visible = False
End If
Next
End With
End Sub
Danke, für jede Hilfe!
Gruß
Olag
https://www.herber.de/bbs/user/129428.xlsm

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: gelöst
27.04.2019 06:16:32
Olga
Hallo,
so funktioniert es!
Sub Namen_auswählen()
Dim Pivot_Item As PivotItem
Dim i As Integer
Dim sName As String
sName = "Name 5"
With ActiveSheet.PivotTables("Muster").PivotFields("Artikel")
For Each Pivot_Item In .PivotItems
Pivot_Item.Visible = True
Next
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("Muster").PivotFields("Name")
For i = 1 To .PivotItems.Count
.PivotItems(i).Visible = True
Next i
For i = 1 To .PivotItems.Count
If .PivotItems(i).Visible = True And .PivotItems(i)  sName Then
.PivotItems(i).Visible = False
End If
Next i
End With
End Sub

Anzeige
AW: gelöst
27.04.2019 07:45:11
Luschi
Hallo Olga,
ich mache das so:

Sub Namen_auswählen()
Dim Pivot_Item As PivotItem
Dim sName As String, ok As Boolean
sName = "Name 1"
With ActiveSheet.PivotTables("Muster").PivotFields("Artikel")
.ClearAllFilters
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("Muster").PivotFields("Name")
For Each Pivot_Item In .PivotItems
Pivot_Item.Visible = Pivot_Item.Name = sName
Next
End With
End Sub
Gruß von Luschi
aus klein-Paris
AW: gelöst
27.04.2019 09:53:09
Olga
Hallo Luschi,
mit dem gelöst habe ich mich getäuscht.
Das Problem ist wenn ich in "A1" den zu filterden Namen eingebe funktioniert es, wenn aber wieder alle eingeblendet werden sollen kommt eine Fehlermeldung.
Wie kann ich es erreichen "(Alle anzeigen)" ohne Fehlermeldung!
Danke!
Gruß
Olga
https://www.herber.de/bbs/user/129429.xlsm
Anzeige
AW: gelöst
27.04.2019 12:51:38
Luschi
Hallo Olga,
ich mache das immer so:
ActiveSheet.PivotTables("Muster").PivotFields("Name").ClearAllFilters
Gruß von Luschi
aus klein-Paris
AW: gelöst
27.04.2019 18:43:39
Olga
Hallo Luschi,
Danke Dir!
Gruß
Olga

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige