Hyperlink bewerken

[Kemlatem]

Hallo,

Ik heb een sheet waarin veel hyperlinks staan die verwijzen naar bv schijf M (op een server).
Nu is de naam van die schijf veranderd en klopt de hyperlink dus niet meer.

Is er een manier om het deel van de link wat niet meer klopt te veranderen?
Dit voor alle linken in een keer (zijn er meer dan 250, dus stuk voor stuk aanpassen is niet handig)

Alvast bedankt voor de reacties.

Groeten,

Kemlatem

 

[arrie23]

Zie:
http://excelribbon.tips.net/T008624_Changing_Huge_Numbers_of_Hyperlinks.html

Sub FixHyperlinks()
    Dim wks As Worksheet
    Dim hl As Hyperlink
    Dim sOld As String
    Dim sNew As String

    Set wks = ActiveSheet
    sOld = "c:\" 
    sNew = "S:\Network\"
    For Each hl In wks.Hyperlinks
        hl.Address = Replace(hl.Address, sOld, sNew)
    Next hl
End Sub

 

[Kemlatem]

Opgelost

TNX!

Opgelost scheelt mij een hoop werk

Groet,
Kemlatel