Wie ändert man mehrere Feld-Einstellungen in PivotTable?
Wenn Sie eine PivotTable in einem Arbeitsblatt erstellen und anschließend Felder in die Werte-Liste im PivotTable-Felderbereich ziehen, wird standardmäßig für alle Felder möglicherweise dieselbe Anzahl-Funktion angewendet – wie im folgenden Screenshot gezeigt. Doch was, wenn Sie stattdessen gleichzeitig die Summe-Funktion nutzen möchten, um die Anzahl-Funktion zu ersetzen? Wie können Sie die Berechnung mehrerer PivotTable-Felder in Excel auf einen Schlag ändern?
Ändern Sie die Feld-Einstellungen in PivotTable manuell nacheinander
Mehrere Feld-Einstellungen in PivotTable mithilfe von VBA-Code ändern
Ändern Sie die Feld-Einstellungen in PivotTable manuell nacheinander
In Excel können Sie die Berechnung der Feld-Einstellungen ändern, indem Sie die Funktion nacheinander im Wert-Feld-Einstellungen-Dialogfeld anpassen. Gehen Sie dazu wie folgt vor:
1. Wählen Sie ein Feld im Wertebereich aus, dessen Zusammenfassungsfunktion Sie in der PivotTable ändern möchten, klicken Sie mit der rechten Maustaste darauf und wählen Sie Wertfeldeinstellungen. Siehe Screenshot:
2. Wählen Sie dann im Wert-Feld-Einstellungen-Dialogfeld unter der Registerkarte Werte zusammenfassen nach die gewünschte Berechnungsart aus – siehe Screenshot:
3. Klicken Sie anschließend auf OK, um das Dialogfeld zu schließen. Sie sehen nun, dass Ihre ANZAHL-Funktion in die SUMME-Funktion geändert wurde – siehe Screenshot:
4. Wiederholen Sie die oben genannten Schritte, um nacheinander die Berechnungseinstellungen weiterer Felder zu ändern.
Hinweis: Sie können die Feldeinstellungen auch ändern, indem Sie mit der rechten Maustaste auf eine Feldzelle klicken und Werte zusammenfassen nach aus dem Kontextmenü auswählen sowie die gewünschte Berechnung festlegen.
Mehrere Feld-Einstellungen in PivotTable mithilfe von VBA-Code ändern
Die oben beschriebene Methode ist zeitaufwendig und mühsam, sobald zahlreiche Feldberechnungen angepasst werden müssen. Daher stelle ich Ihnen hier einen Code vor, mit dem Sie mehrere Feldeinstellungen gleichzeitig ändern können.
1. Klicken Sie auf eine beliebige Zelle in Ihrer PivotTable.
2. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
3. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.
VBA-Code: Mehrere Feld-Einstellungen in PivotTable ändern
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 anschließend die Taste F5, um diesen Code auszuführen. Alle Feld-Einstellungen in Ihrer ausgewählten PivotTable wurden nun gleichzeitig in die gewünschte Berechnungsfunktion konvertiert – siehe Screenshots:
|
 |
 |
Hinweis: Im obigen Code können Sie die Summen-Funktion ganz einfach durch andere Berechnungen wie Mittelwert, Max oder Min ersetzen – passen Sie dazu lediglich „Sum“ in den folgenden Skriptzeilen an:Public Sub SetDataFieldsToSum()und .Function = xlSuman Ihre gewünschte Funktion an.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins