Hyperlink einfügen
12.10.2007 11:30:11
serge
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
Anzeige