Hoe alle tabelnamen in Excel te tonen?

Om alle tabelnamen in een werkboek weer te geven, kunnen de methoden in dit artikel u helpen.

Alle tabelnamen weergeven in het Naamvak
Alle tabelnamen weergeven op de Formulebalk
Alle tabelnamen weergeven met VBA-code

Alle tabelnamen weergeven in het Naamvak

Alle tabelnamen worden standaard in het Naamvak weergegeven.

Klik op de vervolgkeuzepijl linksboven in het Naamvak om alle tabelnamen weer te geven. Zie screenshot:

Opmerking: Alle bereiknamen worden ook in het Naamvak weergegeven samen met alle tabelnamen.

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!

Alle tabelnamen weergeven op de Formulebalk

Als alle tabellen zijn genoemd met de originele tabelnaam zoals Tabel1, Tabel2…, kunt u proberen om al deze tabelnamen op de Formulebalk weer te geven.

1. Voer de formule =ROW(T in op de Formulebalk, dan worden alle tabelnamen in de lijst weergegeven zoals in onderstaande schermafbeelding te zien is.

Opmerking: Tabelnamen die zijn gewijzigd, worden niet weergegeven met deze methode.

Alle tabelnamen weergeven met VBA-code

Als er zowel standaard tabelnamen als gewijzigde tabelnamen in uw werkboek staan, kunt u ze tegelijkertijd weergeven met de volgende VBA-code.

1. Druk op de toetsen Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het Module-venster.

VBA-code: Alle tabelnamen in Excel weergeven.

Sub ListTables()
'Updated by Extendoffice 20180503
    Dim xTable As ListObject
    Dim xSheet As Worksheet
    Dim I As Long
    I = -1
    Sheets.Add.Name = "Table Name"
    For Each xSheet In Worksheets
        For Each xTable In xSheet.ListObjects
            I = I + 1
            Sheets("Table Name").Range("A1").Offset(I).Value = xTable.Name
        Next xTable
    Next
End Sub

3. Druk op de toets F5 of klik op de knop Uitvoeren om de code uit te voeren.

Er wordt een nieuw werkblad gemaakt met de naam Tabelnaam en alle tabelnamen worden weergegeven zoals in onderstaande schermafbeelding te zien is:

Gerelateerde artikelen:

• Hoe de tabel- of draaitabelnaam in een cel in Excel weer te geven?
• Hoe de tabel uitbreidbaar te houden door een tabelrij in te voegen in een beveiligd werkblad in Excel?
• Hoe de positie van kolommen in een tabel in Excel te wijzigen?
• Hoe rijen met waarde nul in een draaitabel te verbergen?