Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Liste der Tabellennamen drucken

Liste der Tabellennamen drucken
30.12.2004 08:42:12
Carmen
Hallo zusammen,
ich habe eine riesige Datei mit einer Unmenge von Tabellenblättern. Um eine bessere Übersicht zu bekommen würde ich mir gerne einmal eine Liste mit den Namen aller Tabellenblätter ausdrucken.
Kann mir jemand vielleicht sagen wie ich das am geschicktesten anstelle?
Danke und viele Grüsse
Carmen
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Liste der Tabellennamen drucken
Ramses
Hallo
erstelle eine Tabelle mit dem Namen "Inhalt" und lass das Makro laufen

Sub Create_Hyperlink_Table_of_Contents()
'(C) Ramses
'Erstellt ein Inhaltsverzeichnis auf alle Tabellen einer
'Mappe mit Hyperlinks auf die jeweiligen Tabellen
Dim tarwks As Worksheet
Dim i As Integer
Set tarwks = Worksheets("Inhalt")
'Bestehenden Inhalt löschen
Columns(1).ClearContents
tarwks.Cells(1, 1) = "Inhalt"
'Erstellen des Inhaltsverzeichnisses
For i = 2 To Worksheets.count
tarwks.Cells(i, 1) = Worksheets(i).name
Cells(i, 1).Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:=Worksheets(i).name & "!A1", TextToDisplay:=Worksheets(i).name
Next i
'Sortiert das Inhaltsverzeichnis
Columns(1).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Gruss Rainer
Anzeige
Funktioniert super! Danke! o.T.
30.12.2004 08:58:58
Carmen
.
Alle Blätter auflisten und verlinken - ohne VBA
Boris
Hi Carmen,
geht im übrigen auch ohne VBA.
Zunächst:
Einfügen - Name - Definieren, Name: x
Bezieht sich auf:
=ARBEITSMAPPE.ZUORDNEN(1+0*JETZT())
Dann in irgendeine Zelle diese Formel und weit genug runterkopieren:
=WENN(ZEILE(A1)&gtANZAHL2(x);"";HYPERLINK("#'"&INDEX(x;ZEILE(A1))&"'!A1";TEIL(INDEX(x;ZEILE(A1));FINDEN("]";INDEX(x;ZEILE(A1)))+1;31)))
Im Ergebnis hast du alle Blätter aufgelistet und gleichzeitig auf A1 verlinkt.
Die Formellösung hat den Vorteil, dass sie immer dynamisch ist.
Grüße Boris
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige