Office: Pivot Tabellen Problem

Hallo Liebe Community,

im Rahmen eines Praktikas baue ich ein reporting tool in einer Bank. Nun habe ich mir vorgefertigte Pivotabellen überlegt.
Jedoch habe ich ein makro eingebaut das bestimmte Zeilen in der Master Liste ausschneidet wenn ein gewisser Status hinterlegt wurde.
Wenn ich dann auch refresh bei der Pivot gehen, funktioniert es nicht. (Fehlermeldung)
Gibt es da eine Lösung das Pivot so einzustellen dass es die ausgeschnittenen Zeilen nicht mehr beachtet?

Danke und Viele Grüße
Adrian

 

Wie lautet die Fehlermeldung denn?

 

Den Anhang 5682 betrachten

Ja das sagt Excel..weiß auch nicht was ich damit anfangen soll

 

Wahrscheinlich mit VBA und nem button create report?

 

Hallo, also ich hab das macro aufgezeichnet, jedoch wird mir der error runtime error 5 ausgegeben. Weiß vll jemand was an dem folgenden code nicht stimmt? (das erste argument verursacht den fehler)


Sub Pivot1()

' Pivot1 Macro

ActiveWorkbook.Worksheets("C.2 - Report Maintenance Over.").PivotTables( _
"PivotTable3").PivotCache.CreatePivotTable TableDestination:= _
"C.1 - Report Classification!R4C1", TableName:="PivotTable1", _
DefaultVersion:=xlPivotTableVersion14
Sheets("C.1 - Report Classification").Select
Cells(4, 1).Select With ActiveSheet.PivotTables("PivotTable1").PivotFields("Maturity Level")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Date of entry")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Status")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("ID")
.Orientation = xlRowField
.Position = 3
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"Type/Short Description")
.Orientation = xlRowField
.Position = 4
End With
Range("A6").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields("Status").PivotItems( _
"Descoped").ShowDetail = False
ActiveSheet.PivotTables("PivotTable1").PivotSelect "'1'", xlDataAndLabel + _
xlFirstRow, True
Range("A7").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields("Status").PivotItems("Open") _
.ShowDetail = False
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("Status"), "Count of Status", xlCount
End Sub