Wie aktualisiert man eine Pivot-Tabelle auf einem geschützten Arbeitsblatt?

Normalerweise wird die Pivot-Tabelle auf einem geschützten Arbeitsblatt nicht aktualisiert. In diesem Artikel stelle ich einen VBA-Code vor, um die Pivot-Tabelle von einem geschützten Arbeitsblatt aus zu aktualisieren.

Pivot-Tabelle auf geschütztem Arbeitsblatt mit VBA-Code aktualisieren

Pivot-Tabelle auf geschütztem Arbeitsblatt mit VBA-Code aktualisieren

Standardmäßig gibt es keinen direkten Weg, eine Pivot-Tabelle auf einem geschützten Arbeitsblatt zu aktualisieren. Mit dem folgenden VBA-Code können Sie jedoch alle Pivot-Tabellen des aktuellen Arbeitsblatts schnell aktualisieren, wenn sich Daten in Ihrer Originaltabelle ändern.

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

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

VBA-Code: Pivot-Tabelle auf geschütztem Arbeitsblatt aktualisieren:

Sub RefreshAll()
'Updateby Extendoffice 20161109
    Dim xpt As PivotTable
    With ActiveSheet
        .Protect UserInterfaceOnly:=True
        For Each xpt In .PivotTables
            xpt.RefreshTable
        Next xpt
    End With
End Sub

3. Drücken Sie dann die F5-Taste, um diesen Code auszuführen. Wenn sich Ihre Originaldaten ändern, werden alle Pivot-Tabellen im aktiven Arbeitsblatt sofort aktualisiert.