hyperlink, maar dan omgekeerd

[arafy]

met de formule = hyperlink is het eenvoudig om een hyperlink te maken. ik zoek nu echter het omgekeerde: in heb een hyperlink en ik wil er het pad uithalen. manueel gaat het, maar ik heb enkele tabbladen vol.

groeten,

steven

 

[Wigi]

Dus je hebt bv.

=HYPERLINK("http://www.helpmij.nl")

en wil komen tot

"http://www.helpmij.nl"

Of niet?

 

[arafy]

ik heb de hyperlink ingevoegd met ctrl-K, dus ik zie de hyperlink niet maar wel de omschrijving die ik heb meegegeven. dus ik zie bijvoorbeeld verlof en hierachter zit de verwijzing naar het bestand h:\verlofplanning.

steven

 

[Wigi]

OK Steven

Sub omgekeerdelink()
Dim c As Range
For Each c In ActiveSheet.UsedRange
    With c
        If .Hyperlinks.Count > 0 Then
            .Value = .Hyperlinks(1).Address
            .Hyperlinks.Delete 'zet deze regel ik commentaar en ze worden niet gewist, maar wel vervangen
        End If
    End With
Next c
End Sub

Wigi

 

[arafy]

plakken speciaal

wigi,

het werkt goed, alleen heb ik eerst nog de hyperlinks gekopieerd en de waarde geplakt om mijn omschrijvingen te behouden.

groeten,

steven

 

[Wigi]

wigi,

het werkt goed, alleen heb ik eerst nog de hyperlinks gekopieerd en de waarde geplakt om mijn omschrijvingen te behouden.

groeten,

steven

Dat kan je idd doen. Blij dat je geholpen bent.