hyperlink formule gedeelde excel

[MartinRip]

Omdat wij een gedeelde file beheren met links naar veel andere spreadsheets wilde ik een huidige cel waarde linken

Sub gedhyperlink(
( nu staat in mijn huidige cel : \\svr_netherland3\boekhouding\Team NL Zuid (Jaco)\Overzichten\Energie\Energie 2020.xlsm) en onderste regel werkt wel maar is niet dynamisch

direc = ActiveCell.Value
ActiveCell.FormulaR1C1 = _
"=HYPERLINK(" + direc + "," + direc + ")"
' ActiveCell.FormulaR1C1 = _
"=HYPERLINK(""\\svr_netherland3\boekhouding\Team NL Zuid (Jaco)\Overzichten\Energie\Energie 2020.xlsm"",""\\svr_netherland3\boekhouding\Team NL Zuid (Jaco)\Overzichten\Energie\Energie 2020.xlsm"")"

End Sub

 

[SjonR]

Hoi Martin,

Met + laat je VBA dingen optellen. Om tekst samen te voegen gebruik je de ampersand (&).

Probeer dit eens:

Sub SjonR()
direc = ActiveCell.Value
ActiveCell.FormulaR1C1 = "=HYPERLINK(""" & direc & """, """ & direc & """)"
End Sub

 

[snb]

@Sjon

& is een ampersand,
geen accolade {

 

[MartinRip]

Sjon,

bericht was duidelijk en het werkt inderdaad maar zoveel """" had ik niet gebruikt voor het begin en eind van de teksten (had wel zowel & als + geprobeerd maar geen effect)

Maar zowel ik als mijn collega's zijn hier heel blij mee scheelt hoop zoekwerk

 

[SjonR]

@snb

inderdaad!

 

[snb]

Maak het je gemakkelijk met:

ActiveCell = replace("=HYPERLINK(""~"", ""~"")","~",activecell.value)