Pivot Bericht über VBA: Alle Einträge deaktivieren
Schritt-für-Schritt-Anleitung
Um alle Einträge in einer Pivot-Tabelle mit Ausnahme des leeren Feldes zu deaktivieren, kannst du das folgende VBA-Makro verwenden. Diese Anleitung basiert auf dem Beispiel aus dem Forum.
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
-
Kopiere und füge den folgenden Code in das Modul ein:
Sub Pivot_nur_Leer()
Dim pvTab As PivotTable, pvItem As PivotItem, pvField As PivotField
On Error Resume Next
Set pvTab = ActiveSheet.PivotTables(1)
Set pvField = pvTab.PivotFields("StationNr")
Application.ScreenUpdating = False
With pvField
.PivotItems("(blank)").Visible = True
For Each pvItem In .VisibleItems
If pvItem.Name <> "(blank)" Then
pvItem.Visible = False
End If
If .VisibleItems.Count = 1 Then Exit For
Next pvItem
End With
Application.ScreenUpdating = True
End Sub
-
Schließe den VBA-Editor und gehe zurück zu Excel.
-
Führe das Makro aus, indem du ALT + F8 drückst, den Namen des Makros auswählst und auf Ausführen klickst.
Häufige Fehler und Lösungen
-
Fehlermeldung beim Deaktivieren: Wenn du versuchst, das leere Feld zu deaktivieren, kann es zu einer Fehlermeldung kommen. Stelle sicher, dass du das Feld "(blank)" nicht anrührst, indem du den Code wie oben gezeigt anpasst.
-
Pivot-Tabelle nicht gefunden: Wenn du die Fehlermeldung erhältst, dass die Pivot-Tabelle nicht gefunden werden kann, überprüfe, ob der Name der Pivot-Tabelle korrekt ist und in der aktiven Arbeitsmappe vorhanden ist.
Alternative Methoden
Falls du keine VBA-Lösung verwenden möchtest, kannst du auch manuell die Sichtbarkeit der PivotItems in Excel ändern. Klicke einfach mit der rechten Maustaste auf das entsprechende PivotItem und wähle "Eintrag ausblenden" für alle gewünschten Items, außer für das leere Feld.
Praktische Beispiele
Hier ist ein Beispiel für die Verwendung des VBA-Skripts in einer Excel-Tabelle:
- Angenommen, deine Pivot-Tabelle heißt "PivotTable1" und das Feld, das du bearbeiten möchtest, heißt "StationNr".
- Die Pivot-Tabelle enthält die Items: "1", "2", "3", "(blank)".
- Nach der Ausführung des Makros wird nur das "(blank)"-Feld sichtbar sein, während alle anderen Einträge deaktiviert sind.
Tipps für Profis
-
VBA-Optimierung: Du kannst den Code weiter optimieren, indem du Bedingungen hinzufügst, um nur bestimmte PivotItems auszublenden, anstatt alle außer dem leeren Feld.
-
Fehlerbehandlung: Füge On Error GoTo-Anweisungen hinzu, um spezifische Fehler zu behandeln und eine bessere Benutzererfahrung zu bieten.
FAQ: Häufige Fragen
1. Was ist der Unterschied zwischen Visible und Hidden in VBA?
Visible steuert die Sichtbarkeit von PivotItems, während Hidden ein spezifisches Attribut ist, das in anderen Kontexten verwendet wird. In der Pivot-Tabelle verwendest du Visible.
2. Funktioniert dieses Makro in Excel 2016?
Ja, das Makro ist kompatibel mit Excel 2007 und späteren Versionen, einschließlich Excel 2016. Stelle sicher, dass du die richtige Pivot-Tabelle und das richtige Feld angibst.