Hoe controleert u of er een draaitabel in een werkmap aanwezig is?
Als er meerdere draaitabellen in uw werkmap staan en u snel wilt weten of een specifieke draaitabel aanwezig is, gaat u normaal gesproken naar het dialoogvenster Draaitabelopties om de namen één voor één te controleren. Dat kost echter veel tijd en is vervelend wanneer u met tientallen of zelfs honderden draaitabellen te maken heeft. Gelukkig heb ik een handig trucje om deze klus vlot op te lossen.
Controleren of een Draaitabel bestaat in een werkmap met een door de gebruiker gedefinieerde functie
Controleren of een Draaitabel bestaat in een werkmap met een door de gebruiker gedefinieerde functie
Om snel te controleren of er een draaitabel bestaat in het huidige werkboek, kunt u een door de gebruiker gedefinieerde functie maken om dit op te lossen.
1. Open de werkmap waarin u wilt controleren of de draaitabel bestaat.
2. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
3. Klik op Invoegen > Module en plak de volgende code in het modulevenster.
VBA-code: Controleren of een Draaitabel bestaat in een werkmap
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. Voer daarna deze code uit, ga terug naar uw werkblad en typ de formule =pivotexist(„salereport") in een lege cel (zie screenshot):
Opmerkingen: (1.) In de bovenstaande formule is „salereport” de naam van de draaitabel die u wilt controleren.
(2.) Typ de draaitabelnaam tussen dubbele aanhalingstekens; de naam is hoofdlettergevoelig.
5. Nadat u de formule hebt ingevoerd, drukt u op Enter. Als u WAAR in uw cel ziet, bestaat de draaitabel; als u ONWAAR krijgt, bestaat de draaitabel niet.
Gerelateerde artikelen:
Hoe toont u alle draaitabellen uit een werkmap?
Hoe voegt u meerdere velden toe aan een draaitabel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins