Hoe controleer je of een draaitabel bestaat in een werkboek?
Als er meerdere draaitabellen in je werkboek zitten, en je wilt nu snel weten of een specifieke draaitabel bestaat in dit werkboek. Normaal gesproken ga je naar het dialoogvenster Draaitabel Opties om de namen van de draaitabellen één voor één te controleren, maar dit is erg tijdrovend en vervelend wanneer er tientallen of honderden draaitabellen zijn. Hier kan ik je een truc laten zien om deze taak op te lossen.
Controleer of een draaitabel bestaat in een werkboek met een door de gebruiker gedefinieerde functie
Controleer of een draaitabel bestaat in een werkboek met een door de gebruiker gedefinieerde functie
Om snel te weten of een draaitabel bestaat in het huidige werkboek, kun je een door de gebruiker gedefinieerde functie maken om dit probleem op te lossen.
1. Open het werkboek waarin je wilt controleren of de draaitabel bestaat.
2. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.
3. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.
VBA-code: Controleer of een draaitabel bestaat in een werkboek
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. Sla daarna de code op en sluit deze, ga terug naar je werkblad, voer deze formule =pivotexist("salereport") in een lege cel in, zie screenshot:
Opmerkingen: (1.) In de bovenstaande formule is “salereport” de naam van de draaitabel die je wilt controleren.
(2.) Je moet de naam van de draaitabel invoeren tussen dubbele aanhalingstekens, en de naam moet hoofdlettergevoelig zijn.
5. Nadat je de formule hebt ingevoerd, druk dan op Enter, als je WAAR krijgt in je cel, bestaat de draaitabel, als je ONWAAR krijgt, bestaat de draaitabel niet.
Gerelateerde artikelen:
Hoe maak je een lijst van alle draaitabellen in een werkboek?
Hoe voeg je meerdere velden toe aan een draaitabel?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen