Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
640to644
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
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

diesmal mit Betreff: Tabelleblatt - Name in Zelle

diesmal mit Betreff: Tabelleblatt - Name in Zelle
21.07.2005 11:08:21
Marcel
Hallo Zusammen,
wie kann ich den Namen der einzelnen Tabellenblätter in eine Tabelle schreiben lassen.. manuell wären das zu viele!!
gruß Marcel

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: diesmal mit Betreff: Tabelleblatt - Name in Ze
21.07.2005 11:10:41
Ramses
Hallo
probier mal
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
'Blattnamen anpassen
Set tarwks = Worksheets("Inhalt")
'Bestehenden Inhalt löschen
tarwks.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
tarwks.Columns(1).Sort Key1:=tarwks.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
End Sub

Gruss Rainer
Anzeige
AW: diesmal mit Betreff: Tabelleblatt - Name in Ze
21.07.2005 11:15:34
Marcel
Jups..
mit ein wenig basteln funktioniert das!
Danke dir ;-)

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige