Ga naar hoofdinhoud

Hoe verander ik meerdere hyperlinkpaden tegelijk in Excel?

Om een ​​of andere reden kunt u meerdere hyperlinks voor uw gegevens in het werkblad maken en alle hyperlinks zijn gekoppeld aan hetzelfde bestandspad of adres, maar nu moet u dit hyperlinkpad per keer vervangen door een ander adres. Als u het pad van de hyperlinks afzonderlijk wilt wijzigen, kan dit veel tijd kosten. Is er een snelle manier om dit probleem op te lossen?

Wijzig meerdere hyperlinkpaden tegelijk in een werkblad met VBA-code

Verander meerdere hyperlinkpaden tegelijk in een werkblad / werkmap / meerdere bladen / selectie met een geweldige functie


Wijzig meerdere hyperlinkpaden tegelijk in een werkblad met VBA-code

Stel dat u een lijst met gegevens heeft met dezelfde hyperlinks als in de volgende schermafbeelding, en met een VBA-code kunt u snel het oude bestandspad of adres in een werkblad vervangen door een nieuwe.

1. Houd de toets ingedrukt ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.

2. Klik Invoegen > Moduleen plak de volgende macro in het Module venster.

VBA-code: wijzig meerdere hyperlinkpaden tegelijk

Sub ReplaceHyperlinks()
'Updateby Extendoffice
Dim Ws As Worksheet
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "KutoolsforExcel"
Set Ws = Application.ActiveSheet
xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For Each xHyperlink In Ws.Hyperlinks
    xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Application.ScreenUpdating = True
End Sub

3. Druk vervolgens op F5 key om deze code uit te voeren, en een promptvenster om je oude hyperlinkadres in te voeren in het Oude tekst doos. Zie screenshot:

4. Klikken OK, en er verschijnt een ander promptvenster om u eraan te herinneren het nieuwe hyperlinkadres in te voeren dat u wilt gebruiken.

5. En klik vervolgens op OKzijn alle dezelfde oude hyperlinkadressen in één keer vervangen door de nieuwe. Zie screenshots:


Verander meerdere hyperlinkpaden tegelijk in een werkblad / werkmap / meerdere bladen / selectie met een geweldige functie

Als u de hyperlinkpaden van een selectie, meerdere bladen, huidig ​​werkboek of meerdere werkmappen wilt vervangen, hoe zou u dat dan kunnen doen? Met Zoeken en vervangen kenmerk van Kutools for Excel, kunt u deze taak snel uitvoeren.

Opmerking:Om dit toe te passen Zoeken en vervangen hulpprogramma, moet u eerst het Kutools for Excelen pas de functie vervolgens snel en gemakkelijk toe.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Klikken Kutools > Navigatie, zie screenshot:

2. In het geopende Navigatie venster, klik op Zoek en vervang tab, in de Zoeken en vervangen venster, klik op vervangen tabblad en voer de volgende bewerkingen uit:

  • Typ de oude hyperlinktekst die u wilt vinden in het Zoeken naar tekstvak en typ vervolgens de nieuwe hyperlinktekst die u wilt vervangen in het Vervangen door tekstvak;
  • Geef het bereik op waar u het hyperlinkpad van het Binnen keuzelijst;
  • Selecteer vervolgens Hyperlinks in de vervolgkeuzelijst Zoeken in;
  • Eindelijk, klik Vind alle knop, zijn alle corresponderende cellen die de specifieke hyperlinktekst bevatten in de onderste keuzelijst weergegeven.

3. Dan klikken Alles vervangen knop, zijn de oude hyperlinkpaden in één keer gewijzigd in de nieuwe, zie screenshot:

Klik om Kutools voor Excel gratis te downloaden!


Meer relatieve artikelen:

  • Haal werkelijke adressen uit hyperlinks
  • Stel dat u een reeks cellen heeft die hyperlinks bevatten, en nu moet u de echte bestemming van de hyperlinks zien en ze uit de hyperlinks extraheren zoals in het volgende screenshot wordt getoond. Zijn er eenvoudige manieren om dit probleem snel op te lossen?
  • Converteer afbeeldings-URL's naar werkelijke afbeeldingen in Excel
  • Als je een lijst met afbeeldings-URL-adressen in kolom A hebt, en nu, wil je de bijbehorende afbeeldingen van de URL's downloaden en ze in de aangrenzende kolom B weergeven zoals het linker screenshot wordt getoond. Hoe kunt u in Excel de daadwerkelijke afbeeldingen snel en gemakkelijk uit de afbeeldings-URL's extraheren?
  • Converteer URL-tekst naar klikbare hyperlink in Excel
  • Stel dat u meerdere URL's in uw werkblad heeft, maar ze zijn niet gekoppeld, en nu moet u alle niet-gekoppelde URL's converteren naar klikbare hyperlinks, zoals in de volgende schermafbeeldingen wordt getoond. U kunt er natuurlijk een voor een op dubbelklikken om ze klikbaar te maken, maar dit zal tijdrovend zijn als er veel URL's zijn. Hoe kunt u meerdere niet-gekoppelde URL's automatisch in Excel naar klikbare hyperlinks converteren?
  • Open een specifieke pagina van een PDF-document vanuit de Excel-hyperlink
  • Wanneer u een cel aan een PDF-bestand koppelt, gaat u normaal gesproken naar de eerste pagina van het PDF-bestand wanneer u klikt om de hyperlink te openen. Als u rechtstreeks naar een specifieke pagina van het pdf-bestand moet springen door op de hyperlink te klikken, kan dit artikel u wellicht een plezier doen.

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
Comments (47)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
This might be an older article, but was exactly what I needed. Thank you!
This comment was minimized by the moderator on the site
hi
thanks man you helped me a lot
This comment was minimized by the moderator on the site
I downloaded this and gave it a try and it did nothing. My hyperlinks look like this: file///\\server\shared\PO\CY2021\25079.pdf. I'm trying to change "server" to "server1" after a migration. I do the find/replace and choose Hyperlink, execute it, and... nothing happens. 
Any ideas?
This comment was minimized by the moderator on the site
Hello John,Sorry to hear that. The reason why the find/replace function didn't work is that your hyperlink file///\\server\shared\PO\CY2021\25079.pdf is not valid. According to the Excel dialog box, it shows the address of this site is not valid. Check the address and try again.
Then when I change your hyperlink to http://file///\\server\shared\PO\CY2021\25079.pdf, the find/replace function works perfectly. Please have a try. Have a nice day.
Sincerely,Mandy
This comment was minimized by the moderator on the site
Muchas gracias, me ahorraste mucho tiempo actualizando hipervinculos!
This comment was minimized by the moderator on the site
Muito obrigado! Você me salvou dezenas de horas de sono que seriam perdidas atualizando links.
This comment was minimized by the moderator on the site
Would it be possible to have a version to set a macro in power point for update links to excel, happens that monthly we need to link the power point presentation to a new excel in a new location. I have to do it one by one and it takes hours! MANY THANKS!!!!

This comment was minimized by the moderator on the site
Thankyou so much for the vba fix. I knew there had to be an easy way to fix my hyperlink problem and you provided it :) I am extremely grateful.
This comment was minimized by the moderator on the site
Many thanks for the VBA code to change multiple hyperlink paths at once. Would it be possible to have a version that would go through the different tabs (worksheets) of the xls workbook, as the current version only seems to change the links in the active worksheet? Would be highly appreciated!

Thanks,

Schweppy
This comment was minimized by the moderator on the site
Hello, Schweppy,
The below code can help you to replace the hyperlinks in all sheets, please try.

Sub ReplaceHyperlinks()
Dim xWs As Worksheet
Dim xWss As Sheets
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "KutoolsforExcel"
Set WS = Application.ActiveSheet
xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
Set xWss = Application.ActiveWorkbook.Worksheets
For Each xWs In xWss
For Each xHyperlink In xWs.Hyperlinks
xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Next xWs
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
This is amazing!!! Thank you for posting the code that works for all of the worksheets. I had the hardest time finding this and couldn't figure out how to create it myself. Thank you so much for sharing your code with the world!!!
Rated 5 out of 5
This comment was minimized by the moderator on the site
Your code helped me update hundreds of hyperlinks in a blink of an eye. Thank you soo much for you help.
This comment was minimized by the moderator on the site
Thanks a lot, works perfectly fine. Highly appreciated.
This comment was minimized by the moderator on the site
Glad it helps. Any questions, please feel free to contact us. Have a nice day!
This comment was minimized by the moderator on the site
Many thanks for the VBA code to change multiple hyperlink paths at once. Would it be possible to have a version that would go through the different tabs (worksheets) of the xls workbook, as the current version only seems to change the links in the active worksheet? Would be highly appreciated!

Thanks,

Schweppy
This comment was minimized by the moderator on the site
Had a spreadsheet with over 200 items that had hyperlinks that needed to be edited. This just saved me SO MUCH TIME. THANK YOU!!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations