Hyperlink auf Tabellenblatt A1

Erich · 2006-08-24T06:40:36+00:00

Hallo EXCEL-Freunde, habe auf einem Tabellenblatt, Spalte A, ab Zeile3, untereinander die Namen der Tabellenblätter alphabetisch aufgelistet. Da immer wieder Tabellenblätter eingefügt und entnommen werden, ändert sich diese Übersicht immer wieder. Dies realisiere ich durch die Erstellung einer Inhaltsübersicht der Tabellenblätter. Da nur Tabellen betroffen sind, die zwischen einer Tabelle "Beginn" und einer Tabelle "Ende" stehen, ist das zunächst unproblematisch. Allerdings muß ich manuell immer die Hyperlinks anpassen, die in der Spalte A, ab Zeile 3 stehen. Gibt es eine Möglichkeit, dass der Hyperlink immer auf den Tabellennamen angepasst wird mit Verweis auf A1 der betreffenden Tabelle? Besten Dank! mfg Erich

Hallo,
bin einen Schritt weiter. Folgendes Makro schreibt die Tabellenblätter mit Hyperlinks
in die Spalte A der Tabelle Test:
For Each Blatt In Sheets
Sheets("Test").Cells(zeile, 1).Value = Blatt.Name
Sheets("Test").Hyperlinks.Add Anchor:=Cells(zeile, 1), Address:="", SubAddress:="'" & _
Blatt.Name & "'!A1", TextToDisplay:=Blatt.Name
zeile = zeile + 1
Next Blatt
und so sieht das Ergebnis aus:
Test

	A	B
2
3	Inhaltsverzeichnis	NEIN
4	Beginn	NEIN
5	Tabelle1	JA
6	Tabelle2	JA
7	Tabelle3	JA
8	Tabelle4	JA
9	Tabelle5	JA
10	Tabelle6	JA
11	Tabelle7	JA
12	Tabelle8	JA
13	Tabelle9	JA
14	Ende	NEIN
15	Test1	NEIN
16	Test2	NEIN
17	Test3	NEIN

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Jetzt müsste der Code so angepasst werden, dass nur die Tabellenblätter zwischen
Beginn und Ende eingetragen werden.
Besten Dank!
mfg
Erich

Hi Erich,
Den Namen anzulegen funktioniert. Bei der Formel erhalte ich jedoch #NAME?
als Ergebnis.
#NAME? kommt nur, wenn du gerade den Namen nicht richtig angelegt hast.
Drück Strg+F3, unter "Namen in der Arbeitsmappe" gibst du x vor, und unten unter "Bezieht sich auf" gibst du ein:
=ARBEITSMAPPE.ZUORDNEN(1+0*JETZT())
Das funktioniert - glaub´s mir.
Allerdings würde mir das auch nicht ganz weiterhelfen, weil ich nur die Tabellenblätter zwischen Beginn und Ende benötige.
Wenn "Beginn" und "Ende" immer das erste und letzte Blatt sind, dann muss die Formel nur unwesentlich geändert werden:
=WENN(ZEILE(A2)&gt=ANZAHL2(x);"";HYPERLINK("#'"&INDEX(x;ZEILE(A2))&"'!A1";TEIL(INDEX(x;ZEILE(A2));FINDEN("]";INDEX(x;ZEILE(A2)))+1;99)))
Grüße Boris

Forumthread: Hyperlink auf Tabellenblatt A1

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial