Hyperlinks

Bei uns wurden die Daten auf einem neuen Server kopiert. Leider sind die Hyperlinks im Excel UNC-Pfade und funktionieren nicht mehr. Mit VB kann man Sie ganz einfach ändern.

Sub Hyperlinks_aendern()
    Dim alterPfad As String
    Dim neuerPfad As String
    Dim myLink As Hyperlink

    ' Achtung: Gross/Kleinschrift beachten, ist für das Ersetzen wichtig
    alterPfad = "\\alterserver\Daten"
    neuerPfad = "\\neuerserver\Daten"

    ' durch alle Hyperlinks im Blatt laufen, Blattname muss angepasst werden
    For Each myLink In Sheets("Tabelle1").Hyperlinks
        ' und in der Adresse des Links den Teil alt gegen neu tauschen
        myLink.Address = Replace(myLink.Address, alterPfad, neuerPfad)

    Next

End Sub