Microsoft Excel

Herbers Excel/VBA-Archiv

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

Hyperlink einfügen

Betrifft: Hyperlink einfügen von: serge
Geschrieben am: 12.10.2007 11:30:11

Hallo Leute

Ich mache eine Liste meiner Tabellenblätter und möchte gleichzeitig die Linkadresse noch einfügen!


Sub Name()
     For i = 1 To Worksheets.Count
         Cells(i, 1) = Sheets(i).Name
'    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
'       "'Sheets(i).Name'!A1", TextToDisplay:="Sheets(i).Name"
     Next i
 End Sub



Wie mache ich es das "Sheets(i).Name" aktive wird
Danke Serge

  

Betrifft: AW: Hyperlink einfügen von: Kawensmann
Geschrieben am: 12.10.2007 11:58:46

Hallo,

zunächst mal: Keine VBA-Befehle oder -Eigenschaften als Namen für eine Prozedur verwenden!

So läuft's:

Sub TabellenNamen()
     For i = 1 To Worksheets.Count
         Cells(i, 1).Value = Sheets(i).Name
         ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:= _
             Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
     Next i
End Sub



Gruß
Kawensmann


  

Betrifft: AW: Hyperlink einfügen von: IngGi
Geschrieben am: 12.10.2007 12:01:09

Hallo serge,

so?

Sub test()

Dim i As Integer
For i = 1 To Worksheets.Count
   Cells(i, 1) = Sheets(i).Name
   ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:= _
      "'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name
Next 'i

End Sub

Gruß Ingolf


  

Betrifft: Danke an beide! von: egres
Geschrieben am: 12.10.2007 14:15:33

Es klappt super!
Serge


 

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