'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
Um Leerfelder in Pivot-Tabellen auszublenden, kannst Du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:
Öffne die Excel-Datei, die die Pivot-Tabellen enthält.
Öffne den VBA-Editor:
ALT + F11.Füge ein neues Modul hinzu:
Einfügen > Modul.Kopiere und füge den folgenden Code ein:
' Ausblenden der Zeilen-/Spaltenfelditems "(Leer)" in allen Pivottabellen
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 SubFühre das Makro aus:
F5 oder wähle Ausführen > Sub/UserForm ausführen.Schließe den VBA-Editor und gehe zurück zu Excel.
Jetzt sollten alle leeren Felder in Deinen Pivot-Tabellen ausgeblendet sein!
Fehler: Makro funktioniert nicht
Problem: Leere Zeilen werden nicht ausgeblendet
Wenn Du kein Makro verwenden möchtest, kannst Du auch die folgenden Methoden ausprobieren:
Hier sind einige Beispiele, wie Du die oben genannten Methoden anwenden kannst:
Beispiel 1: Bei einer Pivot-Tabelle mit Verkaufsdaten kannst Du den Filter so einstellen, dass nur Verkaufsregionen mit Umsatz größer als 0 angezeigt werden.
Beispiel 2: Nutze einen Datenschnitt für die Produktauswahl, um sicherzustellen, dass nur Produkte mit Verkaufszahlen angezeigt werden und leere Einträge ausgeblendet bleiben.
Nutzung von benutzerdefinierten Filteroptionen: Experimentiere mit benutzerdefinierten Filtern, um spezifische Bedingungen festzulegen.
Makros kombinieren: Du kannst mehrere Makros kombinieren, um nicht nur leere Werte in Pivot-Tabellen auszublenden, sondern auch andere Anpassungen vorzunehmen.
Regelmäßige Aktualisierung: Stelle sicher, dass Du Deine Pivot-Tabellen regelmäßig aktualisierst, um die neuesten Daten anzuzeigen und leere Werte zu vermeiden.
1. Wie kann ich leere Zeilen in Pivot-Tabellen dauerhaft ausblenden?
Du kannst das oben genannte Makro verwenden, um leere Zeilen in Pivot-Tabellen auszublenden. Führe es regelmäßig aus, um sicherzustellen, dass leere Werte nicht angezeigt werden.
2. Kann ich auch leere Werte in Pivot-Tabellen ersetzen?
Ja, Du kannst leere Werte in Pivot-Tabellen durch einen bestimmten Text oder Wert ersetzen, indem Du die Datenquelle vor der Erstellung der Pivot-Tabelle bearbeitest. Alternativ kannst Du dies auch im VBA-Code anpassen.
3. Funktioniert das Makro in allen Excel-Versionen?
Das Makro sollte in den meisten modernen Excel-Versionen funktionieren, einschließlich Excel 2010, 2013, 2016, 2019 und Office 365.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen