AW: TooliTip für Tabellenblatt
18.06.2008 12:43:00
Ramses
Hallo
geht doch ganz einfach
Eine Tabelle anlegen mit dem Namen "Inhaltsverzeichnis" oder sonst wie
Den Namen dann in der Konstanten ändern
Option Explicit
'Name der Tabelle mit dem Inhaltsverzeichnis
Const strHome As String = "Inhaltsverzeichnis"
Sub Set_Hyperlinks()
'Erstellt in allen Tabellen in der Zelle "A1" der Mappe einen Hyperlink auf das _
Inhaltsverzeichnis
Dim wks As Worksheet
Dim rngBack as String
'Hier wird der Hyperlink erstellt
rngBack = "A1"
For Each wks In Worksheets
If wks.Name strHome Then
wks.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
strHome & "!" & rngBack, TextToDisplay:=strHome
End If
Next
End Sub
Sub Create_Hyperlink_Table_of_Contents()
'(C) Ramses
'Erstellt ein Inhaltsverzeichnis auf alle Tabellen einer
'Mappe mit Hyperlinks auf die jeweiligen Tabellen
Dim tarWks As Worksheet
Dim i As Integer, myRow As Integer, tmpCnt As Integer
'Blattnamen anpassen
Set tarWks = Worksheets(strHome)
'Bestehenden Inhalt löschen
tarWks.Columns(1).ClearContents
tarWks.Cells(1, 1) = "Inhalt"
'Erstellen des Inhaltsverzeichnisses
'Vertikal
For i = 2 To Worksheets.Count
tarWks.Cells(i, 1) = Worksheets(i).Name
Cells(i, 1).Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:="'" & Worksheets(i) _
.Name & "'!A1", TextToDisplay:=Worksheets(i).Name
Next i
'Sortiert das Inhaltsverzeichnis
tarWks.Columns(1).Sort Key1:=tarWks.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Gruss Rainer