Name von intelligenten Tabellen nicht in Names-Collection

Hallo ihr,

in Excel ist der Name von intelligenten Tabellen Arbeitsmappenweit eindeutig. Ich kann also auf Blatt2 nicht den Namen vergeben, der bereits einer anderen intelligenten Tabelle auf Blatt1 zugeordnet ist. Das ist auch im Namensmanager erkennbar. Dort sieht man den Namen, den Typ "Arbeitsmappe" und den Bereich "bezieht sich auf". Im VBA sind diese Namen aber nicht in der Names-Collection enthalten. Weder beim Workbook-Objekt noch im Worksheet-Objekt. Meine erste Frage ist also, wo holt sich der Namensmanager die Informationen her? Bzw. gibt es eine andere Collection dafür?

Ich möchte ganz einfach anhand eines mir bekannten Namens herausfinden, auf welchem Blatt sich die intelligente Tabelle befindet. Leider gibt es in Excel 2019 aber keine Listobjects-Collection im Workbook-Objekt. Diese findet man nur im Worksheet-Objekt. Natürlich könnte ich jetzt über alle Worksheets und darin alle Listobjects iterieren und dann das jeweilige Blatt zurückgeben, wenn ein LO den entsprechenden Namen hat. Ich hatte aber gehofft es gäbe eine einfachere Lösung. Die RefersTo-Eigenschaft im Namensmanager würde sich hier als Alternative zum fehlenden ActiveWorkbook.Listobjects hervorragend eignen. Meine zweite Frage ist nun: Ist das in neueren Excel-Versionen anders?

Gruß Mr. K.

Was erwartest du eigentlich?
Selbst wenn es eine Collection über alle Listobjects einer ARBEITSMAPPE gäbe, was hast du davon? Du wüsstest immer noch nicht, auf welchem Blatt der gesuchte Name sich befindet - es sei denn, die Collection wäre zweidimensional und würde zu jedem Listobject auch noch den Blattnamen speichern. Und schon müsstest du doch iterieren....
Was ist an einer Iteration denn NICHT einfach? Selbst eine KI kriegt das hin:

Sub AlleListObjectsAuflisten()

    Dim ws As Worksheet

    Dim lo As ListObject

    ' Schleife durch alle Tabellenblätter in der Arbeitsmappe

    For Each ws In ThisWorkbook.Worksheets

        ' Schleife durch alle ListObjects im aktuellen Tabellenblatt

        For Each lo In ws.ListObjects

            ' Beispiel: Den Namen des ListObjects ausgeben

            Debug.Print "Tabelle gefunden: " & lo.Name & " in Blatt: " & ws.Name

        Next lo

    Next ws

End Sub

Name von intelligenten Tabellen nicht in Names-Collection

Forumthread: Name von intelligenten Tabellen nicht in Names-Collection

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Name von intelligenten Tabellen nicht in Names-Collection

Forumthread: Name von intelligenten Tabellen nicht in Names-Collection

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread