Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
536to540
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige