Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1208to1212
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Leerfelder in Pivot ausblenden Makro

Leerfelder in Pivot ausblenden Makro
Maris
Hallo Leute,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Leerfelder in Pivot ausblenden Makro
27.04.2011 12:52:54
fcs
Hallo Maris,
hier ein entsprechendes Makro für die Zeilen- und Spaltenbeschriftungen.
Für Werte macht es IMHO keinen Sinn und ist auch nicht vernüftig umsetzbar. Man muss auch akzeptieren und insbesondere verstehen, dass "kein Wert" auch ein Ergebnis einer Datenauswertung ist.
Gruß
Franz
'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

Anzeige
AW: Leerfelder in Pivot ausblenden Makro
27.04.2011 13:27:40
Maris
ist Perfekt :-)! Danke FCS!!!
Lg,
Maris

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige