ich habe 14 Pivottabellen in einer Mappe und würde gerne bei allen Tabellen bei den Zeilenbeschriftungen, Spaltenbeschriftungen und Werten die Leerfelder ausblenden...
Gibt es da eine Möglichkeit per VBA?
Gruß,
Maris
'Ausblenden der Zeilen-/Spaltenfelditems "(Leer)" bzw. "(blank)" in allen _
Pivottabellen einer Arbeitsmappe
Sub Pivot_Leer_aublenden()
Dim oWS As Worksheet, oPT As PivotTable
For Each oWS In ActiveWorkbook.Worksheets
For Each oPT In oWS.PivotTables
Call HideLeer(oPT_Fields:=oPT.RowFields)
Call HideLeer(oPT_Fields:=oPT.ColumnFields)
Next oPT
Next oWS
End Sub
Private Sub HideLeer(oPT_Fields As PivotFields)
Dim oItem As PivotItem, oField As PivotField
For Each oField In oPT_Fields
For Each oItem In oField.VisibleItems
With oItem
If LCase(.Name) = "(leer)" Or LCase(.Name) = "(blank)" Then
.Visible = False
Exit For
End If
End With
Next oItem
Next oField
End Sub