möchte gerne aus einer arbeitsmappe hyperlinks zu allen tabellenblättern haben.
ist das per makro möglich?
danke im voraus
gruß patric
Sub Hyper()
Sheets("Tabelle1").Columns("A:A").ClearContents
For i = 2 To Worksheets.Count
Sheets("Tabelle1").Hyperlinks.Add anchor:=Sheets("Tabelle1").Cells(i + 2, 1), Address:="", _
SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
Next i
End Sub