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?