Naar regelnummer gaan

[MarcVB]

Hallo,

Wie kan me op weg helpen, stel je hebt in cel A1 het getal 5432 staan wat een verwijzing is naar een regelnummer in het werkblad, dan kun je door in het naamvak A5432 te typen naar cel A5432 springen.
Graag had ik dit verwerkt in een knop (hyperlink) zodat ik het adres niet hoef te typen in het naamvak.

Enig idee?

Marc

 

[MarcelBeug]

Hyperlink: =HYPERLINK("# Blad1!A"&A1;"Naar A"&A1)

Knop:

Sub GaNaar()
    Range("A" & [A1]).Select
End Sub

 

[snb]

zonder hyperlink maar met VBA:

In A1 : 5432
Dubbelklikken in cel A1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Application.Goto Cells(Target, 1)
End Sub

of nog spannender, wat met een hyperlink niet lukt:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = -1
    Application.Goto Cells(Target, 1), -1
End Sub

 

[MarcVB]

He,

Bedankt voor de snelle reactie en eenvoudige, prima oplossing!

Marc