VBA-kode under Ark1
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim ref As String, arkNavn As String, celleAdr As String, xFelt As Variant
Cancel = True
ref = ""
On Error GoTo ingenRef
ref = ActiveCell.Comment.Text
xFelt = Split(ref, "/")
arkNavn = xFelt(0)
celleAdr = xFelt(1)
ActiveWorkbook.Sheets(arkNavn).Activate
ActiveSheet.Range(celleAdr).Select
ingenRef:
End Sub
---------------------------
Data:
Kolonne A med Kommentar i de 4 rækker i Kolonne A - Under B er vist indhold af kommentarerne i A
A..............B...........
eks.1 Ark4/B10
eks.2 Ark3/C10
eks.3 Ark2/B12
eks.4 Ark5/H25
Alternativt sender jeg filen - hvis du sender et signal via
www.supertekst-it.dk | Kontakt