Hoe converteer je alle tabellen naar bereiken in het actieve werkblad?

In Excel kun je enkele tabellen gebruiken om gegevens te registreren, maar soms wil je misschien de tabel converteren naar een bereik voor gemakkelijker bewerken. Meestal kun je slechts één tabel tegelijk converteren naar een bereik, wat tijdrovend kan zijn als er tientallen tabellen in een blad moeten worden geconverteerd naar bereiken. Hier is een VBA-code die alle tabellen in het actieve blad tegelijk kan converteren naar bereiken.

Converteer alle tabellen naar bereiken van het actieve blad met VBA

Converteer alle tabellen naar bereiken van het actieve blad met VBA

1. Activeer het blad met de tabellen die je wilt converteren, druk vervolgens op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module om een nieuw module script te maken, kopieer en plak onderstaande code in de lege module.

VBA: Converteer alle tabellen van het actieve blad naar bereiken

Sub ConvertTablesToRange()
'UpdatebyExtendoffice20180530
    Dim xSheet As Worksheet
    Dim xList As ListObject
    Set xSheet = ActiveWorkbook.ActiveSheet
    For Each xList In xSheet.ListObjects
        xList.Unlist
    Next
End Sub

3. Druk op F5 om de code uit te voeren. Nu zijn alle tabellen in het huidige blad succesvol geconverteerd naar bereiken.