Prøv denne her:
---------
Public Function CreateHyperlink(Lookup_Value As Range, Table_Array As Range, Col_Index_Num As Integer) As String
Dim url As String
Dim linkName As String
Dim toolTip As String
Dim link As Hyperlink
url = WorksheetFunction.VLookup(Lookup_Value, Table_Array, Col_Index_Num, False)
toolTip = WorksheetFunction.VLookup(Lookup_Value, Table_Array, Col_Index_Num + 1, False)
linkName = WorksheetFunction.VLookup(Lookup_Value, Table_Array, Col_Index_Num + 2, False)
With ActiveSheet
.Hyperlinks.Add Anchor:=ActiveCell, _
Address:=url, _
screenTip:=toolTip, _
TextToDisplay:=linkName
End With
CreateHyperlink = linkName
End Function
--------------
Du skal indsætte koden i et kodemodul i det ark hvor du opretter dine links.
Den er opbygget næsten på samme måde som VLOOKUP formelen.
Funktionen forudsætter at dit link ark er opbygget som følgende
Kolonne 1 - Index
Eksempel:
1
2
3
Kolonne 2 - URL
Eksempel: (HUSK altid '
http://' og '
file://')
http://www.dr.dkhttp://www.jubii.dkfile://C:\ugeplan.xlsKolonne 3 - Tooltip (Den tekst som fremkommer når musen placeres over linket)
Eksempel:
Brugsanvisning
Manual
Support
Kolonne 4 - Name (Linkets tekst, typisk det samme som Tooltip)
Vejledning
Klik her
Support
I den celle hvori du ønsker at linket skal stå indsætter du formelen. Den burde fremkomme under 'User Defined' i formel editoren.
Bemærk at formelen forsvinder fra cellen og tilbage er kun linket, det er derfor (desværre) ikke muligt at trække formelen ud over flere celler.
Prøv at se om du kan få den til at virke på dit ark. Sig til hvis du skal bruge mere hjælp.