Filter Pivottabelle
08.02.2022 09:52:37
Carl
ich habe eine bescheidene Frage. Ich möchte eine Pivottabelle filtern. Unten stehend habe ich den Code mal aufgelistet. Ich filtere nach mehreren Kriterien und bekomme so am Ende eine Liste, welch Aufträge zu spät geliefert werden. Die Filter werden in unterschiedlichen Feldern gesetzt:
- VK-Auftrag zwischen 100000 und 199999
- Versanddatum: heutiges Datum + 14 Tage
- Verzug kleiner 0
Ob jedes mal ActiveSheet.PivotTables da vor stehen muss, weiß ich gar nicht genau.
Bisher hat auch alles gut geklappt. Jetzt kommt allerdings eine weitere Anforderung hinzu. Die Liste soll nicht nur nach Aufträgen zwischen 100000 und 199999 gefiltert werden, sondern zusätzlich sollen die Aufträge zwischen 500000 und 599999 mit aufgenommen werden.
Wie kann ich hier einen "und" - Filter erzeugen für das Feld "VK-Auftrag" der zwei Beschriftungsbereiche untersucht.
Sheets("Pivot").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable1").PivotFields("VK - Auftrag"). _
PivotFilters.Add2 Type:=xlCaptionIsBetween, Value1:=100000, Value2:= _
199999
ActiveSheet.PivotTables("PivotTable1").PivotFields("gepl. Versanddatum"). _
PivotFilters.Add2 Type:=xlBefore, Value1:=CDbl(Date + 14)
ActiveSheet.PivotTables("PivotTable1").PivotFields("Verzug in Tagen"). _
PivotFilters.Add2 Type:=xlCaptionIsLessThan, Value1:=0
Vielen Dank für eure Hilfe.