Filter bei Pivot-Tabellen über VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael,
erstmal vielen Dank für deinen Vorschlag.
Leider geht es beim Datenschnitt nicht ganz um das wonach ich letztendlich Suche. Aber vielleicht kannst Du mir bei untenstehendem Code weiterhelfen.
Wenn ich der Pivot-Tabelle über den VBA-Code sagen möchte er soll mir bspw. aus der Monatsauswahl Januar, Februar, März und April nur den Februar wiedergeben soll und ich das über den Rekorder aufzeichne kommt folgendes Ergebnis:
ActiveSheet.PivotTables("PivotTable3").PivotFields("Monat").CurrentPage = _
"(All)"
With ActiveSheet.PivotTables("PivotTable3").PivotFields("Monat")
.PivotItems("Januar").Visible = False
.PivotItems("März").Visible = False
.PivotItems("April").Visible = False
End With
Die Bedeutung ist klar, es werden alle Kriterien ausgeschlossen mit False bzw. wo keine Haken beim aufzeichnen gesetzt wurden.
Geht das auch andersherum, dass ich im Code sagen kann suche nur das Kriterium Februar?
So etwas wäre super und würde mich sehr viel weiterbringen.
Besten Dank!!
Grüße
Stefan

Hallo!
es werden alle Kriterien ausgeschlossen mit False bzw. wo keine Haken beim aufzeichnen gesetzt wurden. Geht das auch andersherum, dass ich im Code sagen kann suche nur das Kriterium Februar?
Das Prinzip ist in beiden Fällen das Gleiche, wie auch schon von Dir (per Makrorekorder) aufgezeigt: Geh alle PivotItems des jeweiligen PivotFelds durch und setze entsprechend True oder False. Das sieht dann als gesäuberter, erweiterter Makro-Rekorder-Code so aus (schematisch, Blattname noch anpassen):

Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Tabelle2")
Dim p As PivotTable: Set p = Ws.PivotTables("PivotTable3")
Dim f As PivotField: Set f = p.PivotFields("Monat")
Dim i As PivotItem, s$
s = "Februar"
With f
For Each i In .PivotItems
If i.Name  s Then
i.Visible = False
Else:
i.Visible = True
End If
Next
End With
End Sub

Kommst Du damit hin?
LG
Michael

Sub a() Dim Wb As Workbook: Set Wb = ThisWorkbook Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Tabelle2") Dim p As PivotTable: Set p = Ws.PivotTables("PivotTable3") Dim f As PivotField: Set f = p.PivotFields("Monat") Dim i As PivotItem With f For Each i In .PivotItems Select Case i.Name Case Is = "Januar", "Februar", "August" i.Visible = True Case Else i.Visible = False End Select Next End With End Sub

Beliebteste Forumthreads (12 Monate)

Filter bei Pivot-Tabellen über VBA

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

172 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Filter bei Pivot-Tabellen über VBA

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

172 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread