VBA Pivot-Filter setzen: Sichtbare Elemente einblenden
Schritt-für-Schritt-Anleitung
Um in einer Excel-Pivottabelle mit VBA nur bestimmte Werte sichtbar zu machen, kannst du den folgenden Code verwenden. Dieser setzt den Filter für die Pivottabelle und blendet alle unerwünschten Elemente aus.
- Öffne das Excel-Dokument mit deiner Pivottabelle.
- Drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Füge ein neues Modul ein: Rechtsklick auf „VBAProject (DeinDokument)“ > Einfügen > Modul.
- Kopiere den folgenden VBA-Code in das Modul:
Sub Pivot_Preset_Items()
Dim arrValues As Variant, iIndex As Long, bolVisible As Boolean
Dim pvTab As PivotTable
Dim pvField As PivotField, pvItem As PivotItem
Set pvTab = ActiveSheet.PivotTables(1)
Set pvField = pvTab.PivotFields("Arbeitspl.")
Application.ScreenUpdating = False
pvTab.RefreshTable
pvField.ClearAllFilters
arrValues = Array("103", "104", "106", "107") ' Werte, die angezeigt werden sollen
For Each pvItem In pvField.VisibleItems
bolVisible = False
For iIndex = LBound(arrValues) To UBound(arrValues)
If pvItem.Name = arrValues(iIndex) Then bolVisible = True: Exit For
Next iIndex
If bolVisible = False Then pvItem.Visible = False
Next pvItem
Application.ScreenUpdating = True
End Sub
- Schließe den VBA-Editor und kehre zu Excel zurück.
- Führe das Makro aus: Gehe zu
Entwicklertools > Makros > wähle Pivot_Preset_Items und klicke auf Ausführen.
Mit diesem Skript werden nur die gewünschten Werte in der Pivottabelle angezeigt, und der Rest wird ausgeblendet.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn du keine VBA-Lösungen verwenden möchtest, kannst du auch manuell die Filteroptionen in der Pivottabelle verwenden, um unerwünschte Werte auszublenden. Dies kann jedoch bei langen Listen mühsam sein.
- Klicke auf die Pivottabelle.
- Wähle den Dropdown-Pfeil des Feldes „Arbeitspl.“ aus.
- Deaktiviere die Checkboxen für die Werte, die du nicht sehen möchtest.
Praktische Beispiele
Angenommen, du hast eine Pivottabelle mit den Werten 101, 102, 103, 104, 105, 106 und 107. Du möchtest nur 103, 104, 106 und 107 anzeigen.
Verwende den oben genannten VBA-Code, um die Sichtbarkeit der Werte zu steuern. Dieses Verfahren ist besonders nützlich, wenn du regelmäßig mit verschiedenen Werten arbeitest und die Effizienz steigern möchtest.
Tipps für Profis
- Nutze die
Application.ScreenUpdating = False-Anweisung, um die Performance zu optimieren, insbesondere bei umfangreichen Pivottabellen.
- Experimentiere mit anderen Filtereinstellungen in Excel VBA, um die Flexibilität deiner Pivottabellen zu erhöhen.
- Halte deine VBA-Tools immer auf dem neuesten Stand, um die besten Ergebnisse mit den neuesten Excel-Versionen zu erzielen.
FAQ: Häufige Fragen
1. Kann ich mehrere Pivottabellen gleichzeitig filtern?
Ja, du kannst den Code anpassen, um mehrere Pivottabellen in einer Schleife zu durchlaufen und die Filter anzuwenden.
2. Was mache ich, wenn die Werte nicht sichtbar sind, obwohl ich sie im Code angegeben habe?
Überprüfe, ob die Werte in der Pivottabelle tatsächlich vorhanden sind und ob die Schreibweise übereinstimmt.