Hyperlinks route herbenoemen

[DZP]

Hallo mensen,

Is het mogelijk om.

De bestandsnamen van alle Hyperlinks in een keer te veranderen !

Bijv.:

Als ik diverse hyperlinks heb in een excel bestand met diverse tabbladen en met (bijv.) de bestemmingen:

http ://Gerrit.Kees.Piet.huppeldepup. com/Jellezalwelzien/enwieweetwatnogmeer/een.doc
http ://Gerrit.Kees.Piet.huppeldepup. com/Jellezalwelzien/enwieweetwatnogmeer/een.ppt
http ://Gerrit.Kees.Piet.huppeldepup. com/Jellezalwelzien/enwieweetwatnogmeer/een.xls
http ://Gerrit.Kees.Piet.huppeldepup. com/Jellezalwelzien/enwieweetwatnogmeer/twee.doc
http ://Gerrit.Kees.Piet.huppeldepup. com/Jellezalwelzien/enwieweetwatnogmeer/drie.doc
http ://Gerrit.Kees.Piet.huppeldepup. com/Jellezalwelzien/enwieweetwatnogmeer/vier.doc


Is het dan mogelijk om (bijv.) in een keer alle hyperlinks met Huppeldepup. com te veranderen in bijdehand. com

Dit in verband met fuseren van bedrijven en met iedere keer aanpassen van de bedrijfsnamen in de documenten.

(P.s.: Soms zijn het 100 hyperlinks in een excel-bestand).





Bekijk bijlage Hyperlinks her benoemen.xls.xlsx

 

[koster1984]

Druk op CTRL+H, vul "huppeldepup" in achter "Zoeken naar", vul "bijdehand" in achter "Vervangen door" en druk op "Alles vervangen".

 

[DZP]

Pakt ie dan alle hyperlinks op alle tabbladen in dat excel-bestand dus ook de ppt's en de doc's want de route van de hyperlnks ziet ie natuurlijk niet omdat die meedraaien op de achtergrond ?

 

[koster1984]

Hij vervangt alleen het woord "huppeldepup" in "bijdehand" (is toch wat je wilt?). met "Opties" kun je achter "Binnen" kiezen voor "Werkmap" (staat standaard op alleen "Blad") en dan doet ie dat voor alle sheets in je werkmap.

 

[DZP]

Merci, bedankt voor de snelle en adequade oplossing. :thumb:
Ik zet de vraag op opgelost en ga het van de week uit proberen.

 

[koster1984]

Graag gedaan.. en succes!

 

[DZP]

Hallo mensen,

Is het mogelijk om.

De bestandsnamen van alle Hyperlinks in een keer te veranderen !

Bijv.:

Als ik diverse hyperlinks heb in een excel bestand met diverse tabbladen en met (bijv.) de bestemmingen:

http ://Gerrit.Kees.Piet.huppeldepup. com/Jellezalwelzien/enwieweetwatnogmeer/een.doc
http ://Gerrit.Kees.Piet.huppeldepup. com/Jellezalwelzien/enwieweetwatnogmeer/een.ppt
http ://Gerrit.Kees.Piet.huppeldepup. com/Jellezalwelzien/enwieweetwatnogmeer/een.xls
http ://Gerrit.Kees.Piet.huppeldepup. com/Jellezalwelzien/enwieweetwatnogmeer/twee.doc
http ://Gerrit.Kees.Piet.huppeldepup. com/Jellezalwelzien/enwieweetwatnogmeer/drie.doc
http ://Gerrit.Kees.Piet.huppeldepup. com/Jellezalwelzien/enwieweetwatnogmeer/vier.doc


Is het dan mogelijk om (bijv.) in een keer alle hyperlinks met Huppeldepup. com te veranderen in bijdehand. com

Dit in verband met fuseren van bedrijven en met iedere keer aanpassen van de bedrijfsnamen in de documenten.

(P.s.: Soms zijn het 100 hyperlinks in een excel-bestand).

Helaas, bovenstaande oplossing uitgeprobeerd maar ik krijg als antwoord dat hij geen gegevens kan vinden, dus hij ziet de route v.d. hyperlinks niet.

(Misschien heeft er nog iemand een andere oplossing voor de vraag in bovenstaande quote).





Bekijk bijlage Hyperlinks her benoemen.xls.xlsx

 

[Warme bakkertje]

Sub RepHyperlinks()
    Dim hl As Hyperlink
    FindString = "huppeldepup"
    ReplaceString = "bijdehand"
    For Each sh In Sheets
        For Each hl In sh.Hyperlinks
           If InStr(1, hl.Address, FindString) > 0 Then 'If FindString is found
                ReplaceLen = Len(FindString)
                URLLen = Len(hl.Address)
                PreStr = Mid(hl.Address, 1, InStr(1, hl.Address, FindString) - 1)
                PostStr = Mid(hl.Address, InStr(1, hl.Address, FindString) + ReplaceLen, URLLen)
                NewURL = PreStr & ReplaceString & PostStr
                hl.Address = NewURL 'Change the URL
            End If
        Next
    Next
End Sub

 

[DZP]

Wb, bedankt voor je reactie.



is het nu ook nog mogelijk om in te breken in die macro zodat ik aan kan geven wat ik aan wil passen.

bijv. bovenstaande macro combineren met Control H.

 

[Warme bakkertje]

Je kan op de plaats van de 2 strings een Inputbox zetten waarin je de te zoeken waarde en de vervangwaarde in kan typen.
Of beter nog een Userform met 2 textboxen en 1 opdrachtknop en van daaruit de macro draaien.

 

[DZP]

Bedankt voor de info,

Voorlopig ben ik weer berebest geholpen:thumb:
de macro werkt in ieder geval perfekt:thumb:

Ik ga met het userform aan de gang !

 

[DZP]

Rudi,
Nogmaals bedankt voor je hulp.

Ik zet toch maar geen knop in de sheets voor het geval er iemand op zou gaan drukken.
In iedere werkmap die ik maak plaats ik de macro (verborgen in vba) op het eerste blad
Dan kan ik hem altijd vinden en is daarvandaan ook simpel te gebruiken.
Vraag is op opgelost gezet omdat het antwoord meer dan voldoende is.

Gr.