Alle Registerbezeichnungen einer Tabelle auswerten

Question

Hallo Excelisten,

wie kann ich unter Excel 2003 die Bezeichnungen aller Register auslesen? Ob in einer neuen Datei, oder in einem neuen Register oder ab der aktuell aktivierten Zelle ist egal.

Gruß und schonmal vorab DANKE.

Maik

Answer 1

Hallo Maik,

folgender Code schreibt dir die Namen der in der aktuellen Arbeitsmappe vorhandenen Tabellenblätter in das aktivierte Arbeitsblatt ab Zeile 1:

Sub Tabellenblaetter_auslesen()

Dim az As Integer

For az = 1 To ActiveWorkbook.Worksheets.Count
Cells(az, 1) = ThisWorkbook.Worksheets(az).Name
Next az

End Sub

Gruß

M.O.

Answer 2

Hallo Maik,

hier mal eine Lösung ohne VBA, die mal in einem Forum Stand

Hi Holger,

hatte diese Frage auch grad in einem anderen Forum (anderer Fragesteller) so beantwortet:
Einfügen -> Namen -> Definieren/Festlegen, Name: x
bezieht sich auf:
=ARBEITSMAPPE.ZUORDNEN(1+0*JETZT())
In irgendeine Zelle jetzt diese Formel und runterkopieren:
=WENN(ZEILEN($1:1)>VERGLEICH("";x;-1);"";TEIL(INDEX(x;ZEILEN($1:1));FINDEN("]";INDEX(x;ZEILEN($1:1)))+1;31))

Grüße Boris

Gruß Hajo

Answer 3

Hallo M.O. und Hajo,

besten Dank für die Bearbeitung meiner Frage.

Das kleine Makro ist exakt das, was ich brauche.

Danke

Maik

Answer 4

Moinsen,

ich bins nochmal.

Irgendwie klappt das Makro nur bei den Standards (Tabelle 1, 2, 3).

Ansonsten kommt der Fehler 'Index außerhalb des gültigen Bereichs'

markiert wird diese Zeile:

Cells(az, 1) = ThisWorkbook.Worksheets(az).Name

Aber die Formeln von Hajo funzen. Insofern gebühren die Lorbeeren eigentlich Hajo.

Danke nochmals

Maik