Wie deaktiviert man die Mehrfachauswahl in einer Pivot-Tabelle?

Wenn wir eine Pivot-Tabelle erstellen und die Option für gefilterte Elemente festlegen, möchten Sie möglicherweise nicht, dass andere die Funktion „Mehrere Elemente auswählen“ in der Pivot-Tabelle verwenden, um die ursprünglichen Daten zu verändern. In diesem Artikel werde ich darüber sprechen, wie Sie diese Option in einer Pivot-Tabelle deaktivieren können.

Deaktivieren der Mehrfachauswahl in einer Pivot-Tabelle mit VBA-Code

Deaktivieren der Mehrfachauswahl in einer Pivot-Tabelle mit VBA-Code

Um die Auswahl in der Pivot-Tabelle vor Änderungen zu schützen, kann Ihnen der folgende VBA-Code helfen, die Funktion „Mehrere Elemente auswählen“ zu deaktivieren. Bitte gehen Sie wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, und das Fenster Microsoft Visual Basic for Applications wird geöffnet.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: Deaktivieren der Mehrfachauswahl in einer Pivot-Tabelle

Sub DisableSelection()
'Update 20141028
Dim xPF As PivotField
Set xPT = Application.ActiveSheet.PivotTables(1)
For Each xPF In xPT.PivotFields
    xPF.EnableItemSelection = False
Next xPF
End Sub

3. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und die Filterpfeilbuttons in der Pivot-Tabelle werden sofort entfernt, siehe Screenshots:

Hinweise:

1. Wenn Sie die Mehrfachauswahl wieder aktivieren möchten, wenden Sie bitte den folgenden Code an:

VBA-Code: Aktivieren der Mehrfachauswahl in einer Pivot-Tabelle:

Sub DisableSelection()
'Update 20141028
Dim xPF As PivotField
Set xPT = Application.ActiveSheet.PivotTables(1)
For Each xPF In xPT.PivotFields
    xPF.EnableItemSelection = True
Next xPF
End Sub

2. Dieser Code gilt nur für eine Pivot-Tabelle im aktiven Arbeitsblatt.

Verwandte Artikel:

Wie blendet man die Schaltflächen zum Aufklappen/Einklappen in einer Pivot-Tabelle aus?

Wie blendet man Zwischensummen in einer Pivot-Tabelle aus?