Ik heb een file met heel wat links naar andere bestanden.
Ik moet die directory nu verplaatsen, moet ik alle hyperlinks afzonderlijk aanpassen of bestaat er een simpele methode om dit in één keer te doen ?

Ik vermoed volgens de plaatsing van de vraag dat je hyperlinks in Excel staan, doe dan volgende :

open het bestand met de hyperlinks en druk Ctrl-H (vervangen).

in zoeken naar plaats je de oude directory
in vervangen door plaats je de nieuwe verwijzing
klik op vervangen of op alles vervangen (wijzigt alles in één keer)

voorbeeld :

stel dat volgende hyperlink www.start.be moet gewijzigd naar www.einde.be

Vul dan bij zoeken naar in :
   start

Bij Vervangen door vul je in :
   einde

Dit kan je ook met directory's doen, bv.  c:\directory wijzigen naar d:\nieuw\directory

zoeken naar : c:\
vervangen door : d:\nieuw\

groetjes

Een hyperlink heeft twee attributen: de 'TextToDisplay' en het 'Address'. Enkel het eerste attribuut kan door CTRL+H aangepast worden, of maw de functie Replace kan een hyperlink niet volledig aanpassen...

De volgende code kan dat echter wel:
Sub ModifyLinks()
Dim rng As Range, cll As Range, oldstring As String, newstring As String, newlink As String

Set rng = Application.InputBox("Select range:", , Selection.Address, , , , ,
oldstring = InputBox("String to replace:")
newstring = InputBox("String to replace:")

For Each cll In rng.Cells
    If InStr(1, cll.Value, oldstring) > 0 Then
        newlink = Application.WorksheetFunction.Substitute(cll.Value, oldstring, newstring)
        With cll.Hyperlinks(1)
            .Address = newlink
            .TextToDisplay = newlink
        End With
    End If
Next cll
End Sub

Plaats deze code in een willekeurige module. Je kan ze dan oproepen door ALT+F8. De code vraagt 3 zaken: de range die moet aangepast worden, de oude tekst die vervangen moet worden en de nieuwe vervangingstekst. Eigenlijk een speciale Replace functie voor hyperlinks dus....

Bart