Wie liste ich alle Pivot-Tabellen aus einer Arbeitsmappe auf?
Angenommen, Sie haben eine große Arbeitsmappe, die mehrere Pivot-Tabellen enthält, und möchten jetzt alle Pivot-Tabellen in dieser Arbeitsmappe auflisten. Ist dies möglich? Der folgende VBA-Code in diesem Artikel tut Ihnen natürlich einen Gefallen. Um mehr Details zu erfahren, lesen Sie bitte den folgenden Artikel.
Listen Sie alle Pivot-Tabellen aus einer Arbeitsmappe mit VBA-Code auf
Listen Sie alle Pivot-Tabellen aus einer Arbeitsmappe mit VBA-Code auf
Der folgende VBA-Code kann Ihnen dabei helfen, alle Pivot-Tabellennamen zusammen mit ihren Attributen wie Quelldatenbereich, Arbeitsblattname, Aktualisierungsdatum usw. aufzulisten.
1. Öffnen Sie Ihre Arbeitsmappe, in der Sie alle Pivot-Tabellen auflisten möchten.
2. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die 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: Listet alle Pivot-Tabellen aus einer Arbeitsmappe auf
Sub ListPivotsInfor()
'Update 20141112
Dim St As Worksheet
Dim NewSt As Worksheet
Dim pt As PivotTable
Dim I, K As Long
Application.ScreenUpdating = False
Set NewSt = Worksheets.Add
I = 1: K = 2
With NewSt
.Cells(I, 1) = "Name"
.Cells(I, 2) = "Source"
.Cells(I, 3) = "Refreshed by"
.Cells(I, 4) = "Refreshed"
.Cells(I, 5) = "Sheet"
.Cells(I, 6) = "Location"
For Each St In ActiveWorkbook.Worksheets
For Each pt In St.PivotTables
I = I + 1
.Cells(I, 1).Value = pt.Name
.Cells(I, 2).Value = pt.SourceData
.Cells(I, 3).Value = pt.RefreshName
.Cells(I, 4).Value = pt.RefreshDate
.Cells(I, 5).Value = St.Name
.Cells(I, 6).Value = pt.TableRange1.Address
Next
Next
.Activate
End With
Application.ScreenUpdating = True
End Sub
4. Dann drücken F5 Mit dem Schlüssel zum Ausführen dieses Codes werden alle Pivot-Tabellennamen, der Quelldatenbereich, der Arbeitsblattname und andere Attribute in einem neuen Arbeitsblatt aufgelistet, das wie im folgenden Screenshot vor Ihrem aktiven Arbeitsblatt platziert wird:
In Verbindung stehende Artikel:
Wie überprüfe ich, ob eine Pivot-Tabelle in einer Arbeitsmappe vorhanden ist?
Wie füge ich mehrere Felder zur Pivot-Tabelle hinzu?
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
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!