in einer Pivot Tabelle kommen regelmäßig neue Werte dazu. Dabei sind auch BLANKS enthalten. Diese möchte ich dann herausfiltern mit nachfolgendem Code: Das funktioniert aber nicht bei der fett gedruckten Zeile.
Kann mir bitte jemand helfen.
Danke vorab und Gruß
Peter
Sub Pivot_aktualisieren()
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
With ActiveSheet.PivotTables("PivotTable3")
.ClearAllFilters
.PivotFields("VKBUR").ShowAllItems = True
End With
With ActiveSheet.PivotTables("PivotTable3").PivotFields("VKBUR")
.ClearAllFilters
.PivotItems("(blank)").Visible = False
End With
MsgBox "Pivot-Table ist aktualisiert; bitte noch Check's durchführen", vbExclamation, " _
Statusinformation zu Pivot Table"
End Sub