HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal
Hyperlink
KlausL

Hallo zusammen,
ich habe mir über das Archiv ein Modul geladen, das mir die Namen alle Tabellenblätter einer Exceldatei in einem Tabellenblatt auflistet.


Sub Tabellennamen_auslesen()
Dim z As Integer
Sheets.Add(before:=Sheets(1)).Name = "Namen aller Tabellenblätter"
For z = 2 To Sheets.Count
Cells(z, 2).Value = Sheets(z).Name
Next
End 



Sub
Wie muss ich das Modul anpassen, dass den aufgelisteten Namen gleich einen Hyperlink in das  _
jeweilige Tabellenblatt in Zelle A1  hinterlegt wird?
Schon jetzt vielen Dank für Hinweise.
Gruß KlausL
AW: Hyperlink
Andi

Hi,
zB so:


Sub Tabellennamen_auslesen()
Dim z As Integer
Sheets.Add(before:=Sheets(1)).Name = "Namen aller Tabellenblätter"
For z = 2 To Sheets.Count
Sheets("Namen aller Tabellenblätter").Hyperlinks.Add Anchor:=Cells(z, 2), Address:="",  _
SubAddress:= _
Sheets(z).Name & "!A1", TextToDisplay:=Sheets(z).Name
Next
End Sub


Schönen Gruß,
Andi

AW: Hyperlink
KlausL

Super, vielen Dank.
Es funktioniert bestens. Was ich erst jetzt bemerkt habe, ich bekomme auch die ausgeblendeten Blätter aufgelistet. Hattest Du noch einen Hinweis wie ich das verhindern kann.
Gruß KlausL

AW: Hyperlink
KlausL

Hallo Andi,
ich habe eine Lösung gefunden.
Läuft jetzt alles bestens.
Nochmals vielen Dank
KlausL

gern geschehen... (ot)
Andi

.