Wie listet man alle Pivot-Tabellen aus einer Arbeitsmappe auf?

Angenommen, Sie haben eine große Arbeitsmappe, die mehrere Pivot-Tabellen enthält, und möchten nun alle Pivot-Tabellen in dieser Arbeitsmappe auflisten. Ist das möglich? Natürlich wird der folgende VBA-Code in diesem Artikel Ihnen helfen. Für weitere Details lesen Sie bitte den folgenden Artikel.

Alle Pivot-Tabellen aus einer Arbeitsmappe mit VBA-Code auflisten

Alle Pivot-Tabellen aus einer Arbeitsmappe mit VBA-Code auflisten

Der folgende VBA-Code kann Ihnen helfen, alle Namen der Pivot-Tabellen zusammen mit ihren Attributen wie Quelldatenbereich, Arbeitsblattname, Aktualisierungsdatum und so weiter aufzulisten.

1. Öffnen Sie Ihre Arbeitsmappe, in der Sie alle Pivot-Tabellen 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 Pivot-Tabellen 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 dann die F5-Taste, um diesen Code auszuführen. Alle Namen der Pivot-Tabellen, Quelldatenbereiche, Arbeitsblattnamen und andere Attribute werden in einem neuen Arbeitsblatt aufgelistet, das vor Ihrem aktiven Arbeitsblatt platziert ist, wie im folgenden Screenshot gezeigt:

Verwandte Artikel:

Wie überprüft man, ob eine Pivot-Tabelle in einer Arbeitsmappe vorhanden ist?

Wie fügt man mehrere Felder in eine Pivot-Tabelle ein?