Wie prüft man, ob eine PivotTable in der Arbeitsmappe vorhanden ist?
Wenn sich mehrere PivotTable in Ihrer Arbeitsmappe befinden und Sie nun schnell wissen möchten, ob ein bestimmtes PivotTable in dieser Arbeitsmappe vorhanden ist, gehen Sie normalerweise zum Dialogfeld PivotTable-Optionen, um die PivotTable-Namen einzeln zu prüfen. Dies ist jedoch sehr zeitaufwendig und mühsam, wenn Dutzende oder Hunderte von PivotTable vorhanden sind. Hier kann ich Ihnen einen Trick verraten, um diese Aufgabe zu lösen.
Überprüfen, ob ein PivotTable in einer Arbeitsmappe mit einer benutzerdefinierten Funktion vorhanden ist
Um schnell zu prüfen, ob eine PivotTable in der aktuellen Arbeitsmappe vorhanden ist, können Sie eine benutzerdefinierte Funktion erstellen.
1. Öffnen Sie die Arbeitsmappe, in der Sie prüfen möchten, ob die PivotTable vorhanden ist.
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 im Modulfenster ein.
VBA-Code: Überprüfen, ob ein PivotTable in einer Arbeitsmappe vorhanden ist
Function PivotExist(Name As String) As Boolean
'Update 20141112
Dim sh As Worksheet
Dim pt As PivotTable
PivotExist = False
For Each sh In ActiveWorkbook.Worksheets
For Each pt In sh.PivotTables
If pt.Name = Name Then
PivotExist = True
Exit For
End If
Next
Next
End Function
4. Speichern und schließen Sie diesen Code, kehren Sie zu Ihrem Arbeitsblatt zurück und geben Sie die folgende Formel in eine leere Zelle ein (siehe Screenshot): =pivotexist(„salereport")
Hinweise: (1.) In der obigen Formel ist „salereport“ der Name der PivotTable, die Sie überprüfen möchten.
(2.) Sie müssen den PivotTable-Namen in doppelte Anführungszeichen setzen, und der Name muss Groß-/Kleinschreibung beachten sein.
5. Nachdem Sie die Formel eingegeben haben, drücken Sie die Eingabetaste. Wenn in Ihrer Zelle WAHR angezeigt wird, existiert das PivotTable. Wird hingegen FALSCH angezeigt, existiert das PivotTable nicht.
Verwandte Artikel:
Wie listet man alle Pivot-Tabellen einer Arbeitsmappe auf?
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