VBA Tabellennamen definieren

[JohnCamus]

Hi,
Ich habe ein kleines Makro aufgenommen in dem bei einer Pivottabelle die Details inspiziert werden, sich also eine Tabelle in einer neuen Mappe mit den Grunddaten öffnet.
- Danach werden ein paar Spalten gelöscht die nicht benötigt werden.
- Die Tabelleneinträge werden nach zwei Kriterien sortiert
- Die Tabelle wird kopiert und an einer definierten Stelle eingefügt
- die vorher erzeugte Mappe mit den Daten aus der Pivottabelle wird gelöscht.
So weit, so gut. Ich habe allerdings zwei Probleme. Eines davon konnte ich lösen. Bei dem Anderen bräuchte ich eure Hilfe.

1) Excel Erstellt einen eigenen Namen für die neu erzeugte Tabelle und nummeriert munter durch. Während im Makro also "Tabelle1" angesteuert werden soll, hat Excel beim ausführen des makros eine Tabelle 2, Tabelle 3 etc erstellt, sodass Excel ab der Referenz nicht weiterkommt.

2) Dasselbe Problem besteht auch bei den Mappen.

Code:

ActiveWorkbook.Worksheets("Sheet11").ListObjects("Table13").Sort.SortFields. _

Problem zwei konnte ich mit dem Code:

Code:

ActiveSheet.Name = "TmpMappe"

lösen.

Gibt es auch eine ähnliche Methode für die Tabelle?

Danke für eure Hilfe!

[Kuwer]

Hallo,

probiere mal mit

ListObjects(1)

Gruß Uwe