kurze Frage mit Inhaltsverzeichnis

[tw3aker]

Hallo miteinander,

ich habe im internet ein Inhaltsverzeichnis für VBA gefunden. Soweit ist das super, mur jetzt meine Frage:

ist es möglich, dass es statt nur der Zahl das ganze als hyperlink zu der entsprechenden Seite wiedergibt??
Leider fehlt mir die dafür nötige VBA-Kenntnis.

Vielleicht könnt ihr mir weiterhelfen.

Viele liebe Grüße

Code:

Sub Blätter()
   ' Spalte B leeren
   Columns("B:B").Select
   Selection.ClearContents
   Range("A3").Select
   Dim B, I%
   For Each B In ActiveWorkbook.Sheets
       I = I + 1
       Cells(I, 2).Value = Sheets(I).Name
   Next
End Sub

[Gast 123]

Hallo,

ich habe einen Code in meinem Archiv gefunden.  Er springt das Blatt auf "A1" an, die Zelle kann man im Code unter SubAdress aendern.

mfg  Gast 123

Code:

Sub Blätter()
Dim B, I%
  ' Spalte B leeren
  Columns("B:B").Clear

  For Each B In ActiveWorkbook.Sheets
      I = I + 1
     'Hyperlink einfügen
     ActiveSheet.Hyperlinks.Add Anchor:= _
       Cells(I, 2), Address:="", SubAddress:=Sheets(I).Name & "!A1", _
       TextToDisplay:=Sheets(I).Name
  Next
End Sub

[tw3aker]

ich habe einen Code in meinem Archiv gefunden.  Er springt das Blatt auf "A1" an, die Zelle kann man im Code unter SubAdress aendern.

Wow, tausend Dank. Funktioniert super! Danke