Link til nyt ark??

Jeg ville gøre nytte af hyperlink funktionen.

Eksempel vis: (dette skal implementeres i dit nuværende script)


Dim V

'Gem den active cells værdi
V = ActiveCell.Value

If IsEmpty(ActiveCell) Then
MsgBox "the cell is empty"
End If

ActiveCell.Formula = "=hyperlink(""[book1]sheet1!A5"",""" & V & """)"

Husk at ændre book1 med dit filnavn, samt sheet variablen som opretter sheets.

God forhøjelse, p.s. det er ikke testet..

Finder hypelink en dårlig og besværlig løsning.
Jeg ville foretrække en BeforeDoubleClick event som denne i stedet.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    If Not Intersect(Target, Range("A3:A15")) Is Nothing Then
        If Target.Value <> "" Then
            Cancel = True
            Call GoToSheet
        End If
    End If
    On Error GoTo 0
End Sub

Private Sub GoToSheet()
    On Error Resume Next
    If Worksheets(ActiveCell.Text) Is Nothing Then
        MsgBox ActiveCell.Text & " - arket findes ikke"
    Else
        Sheets(ActiveCell.Text).Select
    End If
    On Error GoTo 0
End Sub

Koden placeres på arkets kodemodul.
Herefter vil et dobbeltklik på et navn i bområdet A3:A15 resultere i at fokus skiftes til pågældende ark forudsat at det findes. Hvis ikke får man en messagebox med besked om at arket ikke er oprettet.

UPS!
bområdet = området

Hej Perhol

Din metoder virker ganske udemærket.

Tak for hjælpen.

Mvh Jan

Jamen så lægger jeg et svar.
Selvom jeg ikke har besvaret spørgsmålet har jeg nok løst problemet.