Note: The other languages of the website are Google-translated. Back to English

Wie füge ich mehrere Felder zur Pivot-Tabelle hinzu?

Wenn wir eine Pivot-Tabelle erstellen, müssen wir die Felder einzeln manuell in die Zeilenbeschriftungen oder Werte ziehen. Wenn wir eine lange Liste von Feldern haben, können wir schnell einige Zeilenbeschriftungen hinzufügen, aber die verbleibenden Felder sollten dem Wertebereich hinzugefügt werden. Gibt es schnelle Methoden, um alle anderen Felder mit einem Klick in der Pivot-Tabelle zum Wertebereich hinzuzufügen?

Fügen Sie dem Wertebereich der Pivot-Tabelle mehrere Felder mit VBA-Code hinzu

Registerkarte "Office" Aktivieren Sie das Bearbeiten und Durchsuchen von Registerkarten in Office und vereinfachen Sie Ihre Arbeit erheblich ...
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
  • Alles wiederverwenden: Fügen Sie Ihren Favoriten die am häufigsten verwendeten oder komplexesten Formeln, Diagramme und alles andere hinzu und verwenden Sie sie in Zukunft schnell wieder.
  • Mehr als 20 Textfunktionen: Nummer aus Textzeichenfolge extrahieren; Teile von Texten extrahieren oder entfernen; Zahlen und Währungen in englische Wörter umwandeln.
  • Tools zusammenführen: Mehrere Arbeitsmappen und Blätter in einem; Zusammenführen mehrerer Zellen / Zeilen / Spalten ohne Datenverlust; Doppelte Zeilen und Summe zusammenführen.
  • Werkzeuge teilen: Aufteilen von Daten in mehrere Blätter basierend auf dem Wert; Eine Arbeitsmappe für mehrere Excel-, PDF- oder CSV-Dateien; Eine Spalte zu mehreren Spalten.
  • Einfügen überspringen Versteckte / gefilterte Zeilen; Zählen und summieren nach Hintergrundfarbe;; Senden Sie personalisierte E-Mails in großen Mengen an mehrere Empfänger.
  • Superfilter: Erstellen Sie erweiterte Filterschemata und wenden Sie sie auf alle Blätter an. Sortieren nach Woche, Tag, Häufigkeit und mehr; Filter durch Fettdruck, Formeln, Kommentar ...
  • Mehr als 300 leistungsstarke Funktionen; Funktioniert mit Office 2007-2021 und 365; Unterstützt alle Sprachen; Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation.

Pfeil blau rechte Blase Fügen Sie dem Wertebereich der Pivot-Tabelle mehrere Felder mit VBA-Code hinzu

Leider gibt es kein Kontrollkästchen, mit dem wir alle Felder in der Pivot-Tabellenfeldliste mit einem Klick schnell aktivieren können. Mit dem folgenden VBA-Code können Sie jedoch die verbleibenden Felder sofort zum Wertebereich hinzufügen. Bitte gehen Sie wie folgt vor:

1. Nach dem Erstellen der Pivot-Tabelle sollten Sie zunächst die Zeilenbeschriftungsfelder nach Bedarf hinzufügen und die Wertefelder in der Liste belassen Wählen Sie Felder aus, die dem Bericht hinzugefügt werden sollen Liste, siehe Screenshot: </ p>

doc-add-multiple-fields-1

2. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.

3. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.

VBA-Code: Fügen Sie dem Wertebereich von Pivot-Tabellen im aktiven Arbeitsblatt mehrere Felder hinzu

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. Dann drücken F5 Mit dem Schlüssel zum Ausführen dieses Codes wurden alle verbleibenden Felder gleichzeitig zum Wertebereich hinzugefügt. Siehe Screenshot:

doc-add-multiple-fields-1

Hinweis: Dieser VBA-Code wird auf alle Pivot-Tabellen des aktiven Arbeitsblatts angewendet.


In Verbindung stehende Artikel:

Wie liste ich alle Pivot-Tabellen in einer Arbeitsmappe auf?

Wie überprüfe ich, ob eine Pivot-Tabelle in einer Arbeitsmappe vorhanden ist?


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten

 

Kommentare (23)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wirklich schönes und nützliches Makro. Ich hatte jedoch bereits die Hälfte meiner Felder zu den Werten hinzugefügt, und als ich dieses Makro ausführte, wurden dieselben Felder erneut hinzugefügt. Irgendeine Idee warum?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wow. Es funktioniert sehr sehr gut. Vielen Dank! Trotzdem bin ich ein bisschen erstaunt, dass Microsoft keine eingebaute Funktion für eine ziemlich einfache Aufgabe hatte ...
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das ist fantastisch. Kann das Makro geändert werden, um alle Zeilenbeschriftungen anstelle von Werten hinzuzufügen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gibt es eine Möglichkeit, dies nur für ausgeschlossene Felder auszuführen, damit ich beim Ausführen keine doppelten Felder habe? dh. "Feld" und "Feld_2"
Dieser Kommentar wurde vom Moderator auf der Website minimiert
[quote]Gibt es eine Möglichkeit, dies nur für ausgeschlossene Felder auszuführen, sodass ich beim Ausführen keine doppelten Felder erhalte? dh. "Feld" und "Feld_2"Von Shaun[/quote] Ja – zwei Beispiele Verwenden Sie dies, um alle verbleibenden ungeprüften Elemente zu ROWS Sub AddAllFieldsRow() hinzuzufügen .PivotFields.Count For iCol = 1 To iColEnd With .PivotFields(iCol) If .Orientation = 1 Then .Orientation = xlRowField End If End With Next iCol End With End Sub Verwenden Sie dies, um verbleibende ungeprüfte Elemente zu VALUES Sub hinzuzufügen AddAllFieldsValues() Dim pt As PivotTable Dim iCol As Long Dim iColEnd As Long Set pt = ActiveSheet.PivotTables(1) With pt iCol = 0 iColEnd = .PivotFields.Count For iCol = 1 To iColEnd With .PivotFields(iCol) If .Orientation = 1 Then .Orientation = xlDataField End If End With Next iCol End With End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gibt es eine Möglichkeit, nur einige Ekstra-Felder hinzuzufügen, nicht die restlichen oder alle, sondern nur ein Paar von denen, die noch nicht aktiviert sind? :)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ja, um Markus zu wiederholen, gibt es eine Möglichkeit, den Code so zu bearbeiten, dass nur ungeprüfte Felder hinzugefügt werden, die mit Sicherheit Feldbeschriftungen haben (wie mit einer if contains-Funktion)? Zum Beispiel habe ich eine Frage, die eigentlich 50 Ja/Nein-Werte pro Thema enthält, und ich möchte alle in das Wertefeld verschieben. Sie beginnen alle mit der gleichen Fragebezeichnung q9_[bestimmtes Fragethema].
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gibt es trotzdem, wenn wir einige ausgewählte Spalten aus der Basisdatei hinzufügen möchten, anstatt alle.?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sein Annahmewert als Zählung. Wie kann ich alle Zählwerte als Summe umwandeln?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sie können auf Ihr Feld klicken (in den Bereich, in den Sie Ihre Felder ziehen: Spaltenbeschriftungen, Zeilenbeschriftungen usw.) und dann auf "Wertfeldeinstellung" klicken. Dann erhalten Sie eine Dropdown-Liste, aus der Sie "Summe" auswählen können!
A     El
Dieser Kommentar wurde vom Moderator auf der Website minimiert
VBA-Code: Ändern Sie mehrere Feldeinstellungen in der Pivot-Tabelle
https://www.extendoffice.com/documents/excel/2354-excel-pivot-table-change-multiple-field-settings.html
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das ist toll! Vielen Dank.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Funktioniert "xlDataField" nicht mit PowerPivot? Ich habe den folgenden Code, der verwendet wird, um alle Kennzahlen zur Pivot-Tabelle hinzuzufügen. Es funktioniert mit "xlColumnField" und "xlRowField". Irgendwelche Ideen, wie das funktioniert?

Unter AddAllFieldsValues()
Dim pt als PivotTable
iCol solange dimmen
iColEnd so lange dimmen

Legen Sie pt = ActiveSheet.PivotTables (1) fest

Mit Pt

iCol = 1
iColEnd = .CubeFields.Count

Für iCol = 1 bis iColEnd
Mit .CubeFields(iCol)
Wenn .Orientation = xlHidden Dann
.Orientation = xlDataField
End If
Ende mit
Nächste iCol

Ende mit

End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo.

Es gibt mir einen Kompilierungsfehler, wenn ich auf Ausführen klicke

Bitte helfen
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Klappt wunderbar. Vielen Dank
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke, hat mir sehr geholfen
Dieser Kommentar wurde vom Moderator auf der Website minimiert
ICH DANKE DIR SEHR!!!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hinweis: Ches Fehlermeldung:




Unter AddAllFieldsValues()




'Update 20141112



verdunkeln
pt als PivotTable





Dim ich als
Lang





Für jedes
pt In ActiveSheet.PivotTables





Aussichten für
I = 1 bis pt.PivotFields.Count





Ende mit







Weiter



Weiter




End Sub










Hinweis: Che versucht, Folgendes hinzuzufügen
Felder/Schnappschuss – „Summe ANDERER Differenz, Summe von 4096
Differenz" über 80 Felder sein
hinzugefügt







ANDERE Unterschied



4096 Unterschied



4016 Unterschied
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wenn „Werte sind
"0" oder "Null", um die Anzeige von Zeilenwerten zu unterdrücken

(z. B. Summe von 2743 Differenz)





Drehpunkt "Zeilen"
Pivot "Werte"





Zeilenbeschriftungen





NP9 - Insgesamt nicht aufgewendet
Mittel





Summe der ANDEREN Differenz 1,045,355,165.31




Summe von 3200 Unterschied
0.00




Summe von 0108 Unterschied
12,873,630.29



Summe von 4586 Unterschied
(33,024,706.93)



Summe von 0148 Unterschied
(72,046,783.14)



Summe von 0129 Unterschied
(5,583,891.98)



Summe von 4598 Unterschied
(929,574.56)



Summe von 2743 Unterschied



Summe von 4041 Unterschied
0.00



Summe von 2799 Unterschied
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gibt es eine Möglichkeit, das Makro zu bearbeiten, das die Felder anstelle der Werte in die Zeilenbeschriftung senden würde?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Задача же не всегда стоит в получении списка, хочется допустим поправить названия таблиц или источников данных. Можете реализовать?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, gibt es eine Möglichkeit, nur die nicht ausgewählten Spalten hinzuzufügen? Danke. 
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich führe diesen Code aus. Wie viel Zeit wird für die Fertigstellung benötigt? Es ist jetzt 45 Minuten läuft es noch. Bitte hilf mir. Übrigens sind meine gesamten Feldspalten 3600.
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL