Hyperlink
02.07.2008 15:53:00
KlausL
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
Anzeige