Meerdere hyperlinks aanpassen

[Zjosraey]

Hoi,

hoe kan ik meerdere hyperlinks aanpassen? Het betreft in mijn geval hyperlinks in exel 2016 die verwijzen naar bestanden in een map en ik wil die map verplaatsen of van titel veranderen, of zo waardoor alle hyperliks met betrekking tot die map niet meer werken. 

[bakerman]

Hier kan je mee starten.

 

Sub RepHyperlinks()
    Dim hl As Hyperlink
    FindString = "oudetekst"
    ReplaceString = "nieuwetekst"
    For Each sh In Sheets
        For Each hl In sh.Hyperlinks
           If InStr(1, hl.Address, FindString) > 0 Then 'If FindString is found
                ReplaceLen = Len(FindString)
                URLLen = Len(hl.Address)
                PreStr = Mid(hl.Address, 1, InStr(1, hl.Address, FindString) - 1)
                PostStr = Mid(hl.Address, InStr(1, hl.Address, FindString) + ReplaceLen, URLLen)
                NewURL = PreStr & ReplaceString & PostStr
                hl.Address = NewURL 'Change the URL
            End If
        Next
    Next
End Sub