Automatische Verlinkung auf Tabellenblatt nach Auslesen

10/09/2009 - 17:27 von Christian John | Report spam
Hallo Community,

folgender Code gibt mir die Namen der Tabellenblàtter aus:

Sub Tab_Anzeiger()
Dim Anzahl_Tabellenblàtter As Integer
Dim y()
Anzahl_Tabellenblàtter = 0
For Each x In ActiveWorkbook.Worksheets
Anzahl_Tabellenblàtter = Anzahl_Tabellenblàtter + 1
ReDim Preserve y(1 To Anzahl_Tabellenblàtter)
y(Anzahl_Tabellenblàtter) = x.Name
Next x
Sheets("Tabelle 1").Select
Range("A1").Select
For i = 1 To UBound(y)
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
ActiveCell.FormulaR1C1 = y(i)
Next
End Sub

Wie bekomme ich es hin, dass die ausgelesenen Tabellenblàtternamen
automatisch mit dem jeweiiligen Tabellenblatt verlinkt sind in Form eines
Hyperlinks?

Wie immer vielen Dank!

Christian John
 

Lesen sie die antworten

#1 Claus Busch
10/09/2009 - 17:36 | Warnen spam
Hallo Christian,

Am Thu, 10 Sep 2009 08:27:05 -0700 schrieb Christian John:

Wie bekomme ich es hin, dass die ausgelesenen Tabellenblàtternamen
automatisch mit dem jeweiiligen Tabellenblatt verlinkt sind in Form eines
Hyperlinks?




probiers mal so:
Sub Inhaltsverzeichnis()
Dim i As Integer

For i = 1 To Sheets.Count
With Sheets("Tabelle1")
Cells(i, 1).Hyperlinks.Add Anchor:=Cells(i, 1), _
Address:="", SubAddress:= _
Sheets(i).Name & "!A1", _
TextToDisplay:=Sheets(i).Name
End With
Next

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen