Ga naar hoofdinhoud

Hoe controleer ik of een draaitabel in een werkmap bestaat?

Als er meerdere draaitabellen in uw werkmap staan, en nu wilt u snel weten of er een specifieke draaitabel in deze werkmap bestaat. Normaal gesproken gaat u naar het dialoogvenster Opties voor draaitabel om de naam van de draaitabel een voor een te controleren, maar dit is erg tijdrovend en vervelend als er tientallen of honderden draaitabellen zijn. Hier kan ik het hebben over een truc om deze taak op te lossen.

Controleer of er een draaitabel bestaat in een werkmap met een door de gebruiker gedefinieerde functie


pijl blauw rechts bel Controleer of er een draaitabel bestaat in een werkmap met een door de gebruiker gedefinieerde functie

Om snel te weten of er een draaitabel bestaat in de huidige werkmap, kunt u een door de gebruiker gedefinieerde functie maken om het probleem op te lossen.

1. Open de werkmap waarvan u wilt controleren of de draaitabel bestaat.

2. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.

3. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: controleer of er een draaitabel in een werkmap bestaat

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 vervolgens deze code op en sluit deze, ga terug naar uw werkblad en voer deze formule in = pivotexist ("salereport") in een lege cel, zie screenshot:

doc-check-draaitabel-bestaan-1

Opmerkingen: (1.) In de bovenstaande formule, "verkooprapport”Is de naam van de draaitabel die u wilt controleren.

(2.) U moet de naam van de draaitabel tussen dubbele aanhalingstekens invoeren en de naam moet hoofdlettergevoelig zijn.

5. Nadat u de formule hebt ingevoerd, drukt u op de Enter-toets, als u krijgt TRUE in je cel bestaat de draaitabel, als je die krijgt Juist, bestaat de draaitabel niet.


Gerelateerde artikelen:

Hoe alle draaitabellen weergeven in een werkmap?

Hoe voeg ik meerdere velden toe aan een draaitabel?

Beste Office-productiviteitstools

Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

kte tabblad 201905


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
PivotExist = True
Exit Function '--> this is better so no extra loop needed
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations