Print side | Luk vindue

Link til Ark

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Generelt
Forum beskrivelse: Hjælp til generel daglig brug af programmet Excel
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=2176
Udskrevet den: 04.Mar.2025 kl. 13:11


Emne: Link til Ark
Besked fra: dad
Emne: Link til Ark
Posteringsdato: 22.Jul.2015 kl. 12:24
Jeg har et ark med mange faneblade og man kan let fare vild, kan man automatisk lave

En forside med (link) til hver enkelte fane.

Jeg ved godt det kan laves manuelt, men der er mange !

Håber nogle kan nogle tricks.


Med Venlig hilsen

Bo Eriksen


Svar:
Besked fra: thomasbk
Posteringsdato: 23.Jul.2015 kl. 08:25
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

Besked fra: dad
Posteringsdato: 24.Jul.2015 kl. 12:03
Hej
Tak for dit forlag men, Koden opretter et nyt ark, og melder så fejl
mvh
Bo Eriksen 

Besked fra: thomasbk
Posteringsdato: 24.Jul.2015 kl. 12:40
Hvilken version af Excel bruger du?

Besked fra: dad
Posteringsdato: 24.Jul.2015 kl. 12:42
2010 og 2013

Besked fra: dad
Posteringsdato: 24.Jul.2015 kl. 12:43
Rettelse på denne maskine  2013


Print side | Luk vindue