Pivotcache Refresh
15.12.2015 17:55:51
Daniel
Ich habe ein Dropdown Menü über das ich mehre Pivotfilter setze. Er sucht vorher in den Daten nach "Div_Name" und wenn es diesen Namen gibt soll er die Pivot setzten, wenn nicht dann soll er "leer" auswählen in der Pivot.
Mein Problem ist das wenn es einen Wert in einer Pivot nicht gibt das er dann den Wert in den Cache übernimmt. Dies würde ich gerne wieder löschen indem ich den Cache refresche. Leider funktioniert das nicht.
Neben dem refresh habe ich auch das Problem das wenn ich "(leer)" nehme oder auch "(blank)" um das in der Privot zu setzen dann nimmt er nicht den normalen Filter sondern schreibt das in die Pivot.
'Pivot Space je division
If Target.Address = "$L$3" Then
If bool_pivotspacejedivision = False Then
Sheets("Pivot Space je Division").PivotTables("PivotTable1").PivotFields("Division 1"). _
CurrentPage = "(blank)"
Else
Sheets("Pivot Space je Division").PivotTables("PivotTable1").PivotFields("Division 1"). _
CurrentPage = Sheets("Scorecard").Range("L4").TEXT
End If
End If
'Pivot Space je Division
' temp = Sheets("Pivot Space je Division").PivotTables("PivotTable1").PivotFields.Item(" _
Division 1").PivotItems.Count
Dim pvtTable As Excel.PivotTable
Dim pvtField As Excel.PivotField
Dim pvtItem As Excel.PivotItem
' For i = 1 To Sheets("Pivot Space je Division").PivotTables("PivotTable1").PivotFields.Item(" _
Division 1").PivotItems.Count
Stop
Set pvtTable = Sheets("Pivot Space je Division").PivotTables("PivotTable1")
Set pvtField = Sheets("Pivot Space je Division").PivotTables("PivotTable1").PivotFields.Item(" _
Division 1")
For Each pvtItem In pvtField.PivotItems
temp = pvtItem
pvtItem.Delete
Next