ændring af hyperlinks

Det kan du med denne makro:

    sti = Selection.Hyperlinks(1).Address
    laengde = Len(sti)
    NySti = "C:\dokumenter\" & Right(sti, laengde - 14)
    If Left(sti, 14) = "F:\dokumenter\" Then
        Selection.Hyperlinks(1).Address = NySti
    End If

Og hvis du vil gøre det på et markeret område:

Dim Y As Range
For Each Y In Selection
Adresse = Y.Address
    On Error Resume Next
    sti = Range(Adresse).Hyperlinks(1).Address
    laengde = Len(sti)
    NySti = "C:\dokumenter\" & Right(sti, laengde - 14)
    If Left(sti, 14) = "F:\dokumenter\" Then
        Range(Adresse).Hyperlinks(1).Address = NySti
    End If
Next

jeg tester lige

jeg glemte at fortælle at samtlige hyperlinks er forskellige, altså forskellig sti

Ligger de ikke alle i F:\dokumenter\ ?

jo, det gør de, men ender med forskellige titler

Måske skal vi lige have en Lbound med:

Dim Y As Range
For Each Y In Selection
Adresse = Y.Address
    On Error Resume Next
    sti = Range(Adresse).Hyperlinks(1).Address
    laengde = Len(sti)
    NySti = "C:\dokumenter\" & Right(sti, laengde - 14)
    If LBound(Left(sti, 14)) = "d:\dokumenter\" Then
        Range(Adresse).Hyperlinks(1).Address = NySti
    End If
Next
End Sub

Det er lige meget hvad filerne hedder.

jeg har kaldt makroen "Sub hyperlinks()", men når jeg prøver på at køre den kommer der en fejlmelding: Compile error,member already exists in a object module from which this object module derives"

jeg har fået den til at fungere. hvis du smider et svar, smider jeg nogle point. tak for hjælpen

Velbekomme. Hvad var problemet?

Jeg havde skrevet det forkert, surt. Jeg takker igen