Wie listet man alle PivotTables einer Arbeitsmappe auf?
Angenommen, Sie haben eine große Arbeitsmappe mit mehreren PivotTables. Möchten Sie alle PivotTables in dieser Arbeitsmappe auflisten? Selbstverständlich! Der folgende VBA-Code aus diesem Artikel unterstützt Sie dabei. Weitere Details finden Sie im Abschnitt „Bitte lesen“ weiter unten im Artikel.
Alle PivotTable aus einer Arbeitsmappe mithilfe von VBA-Code auflisten
Alle PivotTable aus einer Arbeitsmappe mithilfe von VBA-Code auflisten
Der folgende VBA-Code listet alle PivotTable-Namen mitsamt ihren Attributen wie Quelldatenbereich, Arbeitsblattname und Aktualisierungsdatum auf – schnell, übersichtlich und präzise.
1. Öffnen Sie Ihre Arbeitsmappe, in der Sie alle PivotTables auflisten möchten.
2. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
3. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.
VBA-Code: Alle PivotTable aus einer Arbeitsmappe auflisten
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. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Alle PivotTable-Namen, der Bereich der Quelldaten, der Arbeitsblattname und weitere Attribute werden in einem neuen Arbeitsblatt aufgelistet, das sich vor Ihrem aktiven Arbeitsblatt befindet – wie im folgenden Screenshot dargestellt:
Verwandte Artikel:
Wie können Sie prüfen, ob eine Arbeitsmappe ein PivotTable enthält?
Wie fügt man mehrere Felder in eine PivotTable ein?
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