Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Hyperlink

Betrifft: Hyperlink von: KlausL
Geschrieben am: 02.07.2008 13:53:41

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


  

Betrifft: AW: Hyperlink von: Andi
Geschrieben am: 02.07.2008 16:00:38

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


  

Betrifft: AW: Hyperlink von: KlausL
Geschrieben am: 02.07.2008 17:15:46

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


  

Betrifft: AW: Hyperlink von: KlausL
Geschrieben am: 02.07.2008 17:25:48

Hallo Andi,

ich habe eine Lösung gefunden.

Läuft jetzt alles bestens.
Nochmals vielen Dank

KlausL


  

Betrifft: gern geschehen... (ot) von: Andi
Geschrieben am: 02.07.2008 17:42:27

.


 

Beiträge aus den Excel-Beispielen zum Thema "Hyperlink"