Wie konvertiert man alle Tabellen in einem aktiven Arbeitsblatt in Bereiche?
In Excel nutzen Sie möglicherweise mehrere Tabellen zur Datenerfassung – doch manchmal möchten Sie eine Tabelle in einen Bereich umwandeln, um die Bearbeitung zu vereinfachen. Normalerweise lässt sich jeweils nur eine Tabelle gleichzeitig in einen Bereich konvertieren, was äußerst zeitaufwändig wird, wenn Dutzende von Tabellen auf einem Arbeitsblatt umgewandelt werden müssen. Hier kommt ein praktischer VBA-Code ins Spiel, mit dem Sie alle Tabellen im aktuellen Arbeitsblatt auf einen Schlag in Bereiche verwandeln können.
Alle Tabellen des Aktuelles Arbeitsblatt mithilfe von VBA in Bereiche umwandeln
Alle Tabellen des Aktuelles Arbeitsblatt mithilfe von VBA in Bereiche umwandeln
1. Aktivieren Sie das Blatt, das die umzuwandelnden Tabellen enthält, und drücken Sie anschließend die Tastenkombination Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, um ein neues Modulskript zu erstellen, und fügen Sie den folgenden Code in das leere Modul ein.
VBA: Alle Tabellen des Aktuelles Arbeitsblatt in Bereiche umwandeln
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. Drücken Sie die Taste F5, um den Code auszuführen. Alle Tabellen im aktuellen Arbeitsblatt wurden nun erfolgreich in Bereiche umgewandelt.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins