Wie fügt man mehrere Felder in eine PivotTable ein?
Beim Erstellen einer PivotTable ziehen wir normalerweise Felder einzeln in den Bereich „Zeilenbeschriftungen“ oder „Werte“. Bei einer langen Feldliste ist es zwar einfach, einige Felder als Zeilenbeschriftungen hinzuzufügen, doch das manuelle Hinzufügen aller übrigen Felder zum Werte-Bereich kann zeitaufwändig sein. Gibt es eine Möglichkeit, alle verbleibenden Felder mit nur einem Klick in den Werte-Bereich einzufügen?
Mehrere Felder mit VBA-Code in den Werte-Bereich von PivotTable einfügen
Mehrere Felder mit VBA-Code in den Werte-Bereich von PivotTable einfügen
Excel bietet derzeit keine native Funktion – wie beispielsweise eine „Alle auswählen“-Checkbox – im Feldlistenbereich, mit der Sie alle verbleibenden Felder direkt per Klick in den Werte-Bereich einfügen können. Mithilfe eines einfachen VBA-Makros lässt sich dies jedoch effizient umsetzen. Dieser Ansatz eignet sich besonders gut, wenn Sie diesen Vorgang häufig wiederholen oder eine große Anzahl von Datenfeldern verarbeiten müssen. Im Folgenden finden Sie detaillierte Schritte sowie wichtige Hinweise zur korrekten Anwendung dieser Methode:
1.Nachdem Sie Ihre PivotTable erstellt haben, fügen Sie die gewünschten Felder auf herkömmliche Weise per Drag-and-Drop als Zeilenbeschriftungen hinzu. Lassen Sie die anderen Felder – also jene, die Sie als Werte zusammenfassen möchten – im Abschnitt Felder für Bericht auswählen der Feldliste deaktiviert. Zur Orientierung finden Sie unten einen Screenshot:
3. Öffnen Sie über das Excel-Menüband Entwicklertools > Visual Basic, und stellen Sie sicher, dass Sie in der richtigen Arbeitsmappe arbeiten. Drücken Sie anschließend im VBA-Fenster Einfügen > Modul, um ein neues Modul zu erstellen, und fügen Sie den folgenden VBA-Code in das Modulfenster ein.
2. Drücken Sie ALT + F11, um das Fenster des Microsoft Visual Basic for Applications-Editors zu öffnen. Alternativ können Sie darauf über
VBA-Code: Mehrere Felder in den Werte-Bereich von PivotTable im aktiven Arbeitsblatt einfügen
Sub AddAllFieldsValues()
'Update 20141112
Dim pt As PivotTable
Dim I As Long
For Each pt In ActiveSheet.PivotTables
For I = 1 To pt.PivotFields.Count
With pt.PivotFields(I)
If .Orientation = 0 Then .Orientation = xlDataField
End With
Next
Next
End Sub
4. Drücken Sie anschließend F5, um das Makro auszuführen, oder klicken Sie auf die Schaltfläche „Ausführen“ in der Symbolleiste des VBA-Editors. Das Makro verarbeitet alle PivotTables im aktuellen Arbeitsblatt: Für jede Tabelle fügt es alle Felder, die Sie noch nicht als Zeilen- oder Spaltenbeschriftungen hinzugefügt haben, direkt in den Werte-Bereich ein. Dadurch erscheint jedes verfügbare Datenfeld als zusammengefasster Wert in Ihrer PivotTable – für schnelle und umfassende Analysen. Zur Orientierung siehe folgenden Screenshot:
Hinweis: Dieses Makro wendet Änderungen auf alle PivotTables im aktiven Arbeitsblatt an, sobald Sie es ausführen. Falls Sie mehrere PivotTables haben und nur eine aktualisieren möchten, verschieben Sie diese vorübergehend in ein separates Blatt. Speichern Sie Ihre Arbeit stets vor dem Ausführen eines VBA-Makros – denn Makros können irreversible Änderungen bewirken. Außerdem versucht das Makro, alle verbleibenden Felder hinzuzufügen, einschließlich solcher, die sich möglicherweise nicht für eine numerische Zusammenfassung eignen. Das kann zu Fehlern bei der Zusammenfassung oder zu sinnlosen Ergebnissen bei Feldern mit nicht-numerischen Daten führen.
Verwandte Artikel:
Wie listet man alle PivotTables einer Arbeitsmappe auf?
Wie können Sie prüfen, ob eine PivotTable in einer Arbeitsmappe vorhanden ist?
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