Wie ändert man mehrere Feldeinstellungen in einer Pivot-Tabelle?

Wenn Sie eine Pivot-Tabelle in einem Arbeitsblatt erstellen, nachdem Sie die Felder in die Werte-Liste im PivotTable-Feldlisten-Bereich gezogen haben, erhalten Sie möglicherweise überall die gleiche Anzahl-Funktion, wie im folgenden Screenshot gezeigt. Nun möchten Sie aber die Summe-Funktion anstelle der Anzahl-Funktion auf einmal ersetzen. Wie können Sie die Berechnung mehrerer PivotTable-Felder auf einmal in Excel ändern?

Ändern Sie die Feldeinstellungen in der Pivot-Tabelle manuell nacheinander.

Ändern Sie mehrere Feldeinstellungen in der Pivot-Tabelle mit VBA-Code.

Ändern Sie die Feldeinstellungen in der Pivot-Tabelle manuell nacheinander.

In Excel können Sie die Berechnung der Feldeinstellungen ändern, indem Sie die Funktionen nacheinander im Dialogfeld „Feldeinstellungen für Werte“ ändern. Gehen Sie dazu wie folgt vor:

1. Wählen Sie ein Feld im Werte-Bereich aus, für das Sie die Zusammenfassungsfunktion in der Pivot-Tabelle ändern möchten, und klicken Sie mit der rechten Maustaste darauf, um „Feldeinstellungen für Werte“ auszuwählen. Siehe Screenshot:

2. Wählen Sie dann im Dialogfeld „Feldeinstellungen für Werte“ den gewünschten Berechnungstyp unter dem Reiter „Werte zusammenfassen nach“ aus. Siehe Screenshot:

3. Klicken Sie anschließend auf OK, um dieses Dialogfeld zu schließen, und Sie sehen, dass Ihre Anzahl-Funktion in die Summe-Funktion geändert wurde. Siehe Screenshot:

4. Wiederholen Sie die obigen Schritte, um die Berechnungseinstellungen anderer Felder nacheinander zu ändern.

Hinweis: Sie können die Feldeinstellungen auch ändern, indem Sie mit der rechten Maustaste auf eine Zelle eines Feldes klicken und „Werte zusammenfassen nach“ auswählen und dann die benötigte Berechnung aus den Kontextmenüs auswählen.

Ändern Sie mehrere Feldeinstellungen in der Pivot-Tabelle mit VBA-Code.

Die oben genannte Methode kann zeitaufwendig und mühsam sein, wenn viele Feldberechnungen geändert werden müssen. Hier kann ich Ihnen einen Code vorstellen, um mehrere Feldeinstellungen gleichzeitig zu ändern.

1. Klicken Sie auf eine beliebige Zelle in Ihrer Pivot-Tabelle.

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

3. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Ändern Sie mehrere Feldeinstellungen in der Pivot-Tabelle.

Public Sub SetDataFieldsToSum()
'Update 20141127
Dim xPF As PivotField
Dim WorkRng As Range
Set WorkRng = Application.Selection
With WorkRng.PivotTable
   .ManualUpdate = True
   For Each xPF In .DataFields
      With xPF
         .Function = xlSum
         .NumberFormat = "#,##0"
      End With
   Next
   .ManualUpdate = False
End With
End Sub

4. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und alle Feldeinstellungen in Ihrer ausgewählten Pivot-Tabelle wurden auf einmal in die gewünschte Berechnung konvertiert. Siehe Screenshots:

Hinweis: Im obigen Code können Sie die Summe-Funktion in beliebige andere Berechnungen ändern, z. B. Durchschnitt, Maximum, Minimum, je nach Bedarf. Sie müssen nur die Summe in diesen Skripten ändern: Public Sub SetDataFieldsToSum() und .Function = xlSum in andere Funktionen.