ShowAllData 3 Datentabellen ein Blatt
19.07.2021 11:07:18
marc_w@web.de
ich habe ein Tabellenblatt mit mehreren Datentabellen (Strg+T oder Einfügen/Tabelle). Es soll nun per VBA ein möglicher Filter der Datentabellen gelöscht werden.
Kann ShowAllData auch gezielt auf bestimmte Datentabellen/Namensbereiche angewendet werden? Hab dies bisher nur auf das Tabellenblatt bezogen gefunden oder mittels Select bevor ShowAllData ausgeführt wird wie im Codebeispiel unten zu sehen.
Range("Tabelle1[[#Headers],[B]]").Select
ActiveSheet.ShowAllData
Range("Tabelle13[[#Headers],[B]]").Select
ActiveSheet.ShowAllData
Range("Tabelle14[[#Headers],[B]]").Select
ActiveSheet.ShowAllData
Das Select hääte ich gerne vermieden.
Die Alternative ist per Schleife alle Tabellenspalten durchzulaufen und dann den Filter pro Spalte auszuschalten, was bei mir aber sehr sehr langsam abläuft.
Grüße
Marc