Omvandla externa länkvärden till fasta värden

Här belyses hur vi kan omvandla externa länkvärden till endast värden, dvs hur vi behåller värdena men tar bort länkarna.

Exemplet berör endast externa länkar i celler och gäller endast s k externa länkar utanför det berörda arbetsbladet.

Denna teknik kan komma till stor nytta om vi vill distribuera en arbetsbok men utan kopplingar till t ex andra arbetsböcker.

Se också Spöklänkar.

Proceduren för att omvandla länkvärden byggs utifrån funktionen InStr, som här används som en sökfunktion. Annars utgör jämförelser det primära tillämpningsområdet för funktionen.

Sub Omvandla_Externa_LänkVärden() '© 2001 Alla rättigheter XL-Dennis Dim oObjekt As Object Dim wsBlad As Worksheet On Error Resume Next For Each wsBlad In ActiveWorkbook.Worksheets   For Each oObjekt In wsBlad.UsedRange.SpecialCells(xlCellTypeFormulas, 23)     If InStr(oObjekt.Formula, "[") Or InStr(oObjekt.Formula, "!") Then        oObjekt.Value = oObjekt.Value     End If   Next Next End Sub

Vill vi ta bort alla externa länkar i arbetsbladets celler kan det ske med följande procedur:

Sub Ta_Bort_Externa_Länkar() '© 2001 Alla rättigheter XL-Dennis Dim oObjekt As Object Dim wsBlad As Worksheet On Error Resume Next For Each wsBlad In ActiveWorkbook.Worksheets    For Each oObjekt In wsBlad.UsedRange.SpecialCells(xlCellTypeFormulas, 23)      If InStr(oObjekt.Formula, "[") Or InStr(oObjekt.Formula, "!") Then         oObjekt.Value = ""      End If    Next Next End Sub