Prøv denne kode. Koden indsætter et nyt ark med hyperlinks til alle de øvrige ark.
Sub CreateLinksToAllSheets()
' Inserts new sheet with hyperlink to all sheets in the workbook
Dim sh As Worksheet
Dim cell As Range
ActiveWorkbook.Sheets.Add Before:=Worksheets(1)
Range("C2").Value = "Oversigt over ark"
Range("C4").Select
For Each sh In ActiveWorkbook.Worksheets
If ActiveSheet.Name <> sh.Name Then
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & sh.Name & "'" & "!A1", TextToDisplay:=sh.Name
ActiveCell.Offset(1, 0).Select
End If
Next sh
End Sub
Forum start
Forummets regler
Sådan uploader du filer
Marker Accepteret løsning
Del dine regneark
Excel-regneark.dk
Link til Ark
Emne funktioner
