In Excel kan je hyperlinks invoegen naar externe locaties. Dit kan zowel naar websites als naar lokale bestanden. Heel erg handig, maar wat als je op een bepaald moment die hyperlinks wil wijzigen?

Onlangs had ik een bestand met enkele honderden hyperlinks. Na een crash van Excel, had ik de herstelde versie van mijn bestand opgeslagen. Gevolg: de hyperlinks waren allemaal gewijzigd naar een vreemd pad:

Het oude pad was:
C:\ExhelpRules\BIJLAGEN\exhelp*****.pdf

maar nu was het pad plots gewijzigd naar:
C:\Users\exhelp\Application Data\Microsoft\BIJLAGEN\exhelp*****.pdf

Op de plaats van de jokertekens stond een unieke code, die bij elke hyperlink verschillend was.

Zoeken en vervangen (CTRL+H)? Dat had je gedacht. Excel gaat niet zoeken in de locatie van je hyperlinks.

Natuurlijk had ik wel een back-up, maar ik had inmiddels weeral andere wijzigingen gemaakt in de laatst opgeslagen versie. Dat was dus al niet de ideale oplossing.

Gelukkig is er nog VBA…

ExhelpFindReplaceHyperlink

Het is heel eenvoudig. We schrijven gewoon een stukje code vergelijkbaar aan de functie zoeken/vervangen, maar dan voor hyperlinks.

Je kan onderstaande code gewoon plakken in een VBA module. Ga naar je werkblad waar de hyperlinks zich bevinden. Druk op ALT+F8, kies de macro en druk vervolgens op “uitvoeren”.

Er verschijnt een pop-up voor de te zoeken waarde.  In mijn voorbeeld zou ik hier dan invullen:

C:\Users\exhelp\Application Data\Microsoft\BIJLAGEN\

Druk vervolgens op “OK”

Er verschijnt een pop-up voor waarde die je in de plaats wil zetten. In mijn voorbeeld zou ik hier dan invullen:

C:\ExhelpRules\BIJLAGEN\

Druk vervolgens op “OK”

Onze macro zal nu de hyperlinks aanpassen, en je achteraf een bericht geven van het aantal aanpassingen dat gebeurd is.

TIP! Je kan zowel een volledige hyperlink als een stuk van een hyperlink invullen. Je kan bijvoorbeeld dus ook ExhelpRules vervangen door ExhelpRocks, of .pdf vervangen door .jpg

VBA Code

Sub ExhelpFindReplaceHyperlink()

Dim s_find As String
Dim s_replace As String
Dim h As Hyperlink
Dim x As Integer
Dim c As Long

s_find = InputBox("Zoeken in hyperlink naar", "http://www.exhelp.be", "")
s_replace = InputBox("Vervangen in hyperlink door", "http://www.exhelp.be", "")

For Each h In ActiveSheet.Hyperlinks
    
    x = InStr(1, h.Address, s_find)
    
    If x > 0 Then
        
        If h.TextToDisplay = h.Address Then
            h.TextToDisplay = s_replace
        End If
    
        If s_find = "" Then GoTo ErrorHandler
    
        h.Address = Replace(h.Address, s_find, s_replace)
        
        c = c + 1
    
    End If

Next

MsgBox "Er werden " & c & " hyperlinks aangepast.", vbOKOnly, "http://www.exhelp.be"
       
Exit Sub
ErrorHandler:     MsgBox "Er werden 0 hyperlinks aangepast.", vbOKOnly, "http://www.exhelp.be"
       
End Sub