Pivot Slicer mit Makro für Filter-Einstellungen
14.12.2016 15:55:20
marcel
Ich habe eine Pivot Tabelle, geordnet nach Datum, mit Werten die z.T. "0" sind (Werte kommen aus Berechnetem Feld in PoverPivot).
Mit einem Slicer kann ich die Zeitspanne auswählen. Nun möchte ich die Pivot Tabelle zusätzlich nach Werten die zwischen 0.001 und 100 liegen, mit einem Makro filter.
Leider schaffe ich es nicht, das Makro so aufzubauen, dass die bestehenden Filter (Datum) nicht gelöscht warden. Kurzgesagt, ich möchte die Filter mit einem Makro ergänzen.
Könnt ihr mir weiterhelfen?
Hier noch mein Makro:
Sheets("Pivots for Analysis").Select
ActiveSheet.PivotTables("Oee_Analysis").PivotFields( _
"[Volumes].[ShiftScheduleDate].[ShiftScheduleDate]").ClearAllFilters
ActiveSheet.PivotTables("Oee_Analysis").PivotFields( _
"[Volumes].[ShiftScheduleDate].[ShiftScheduleDate]").PivotFilters.Add2 Type:= _
xlDateBetween, Value1:="01.10.2016", Value2:="31.12.2016"
ActiveSheet.PivotTables("Oee_Analysis").PivotFields( _
"[Volumes].[ShiftScheduleDate].[ShiftScheduleDate]").PivotFilters.Add2 Type:= _
xlValueIsBetween, DataField:=ActiveSheet.PivotTables("Oee_Analysis"). _
CubeFields("[Measures].[OEE]"), Value1:=0.0000001, Value2:=1
Sheets("Analysis").Select