Hoe wijzigt u meerdere hyperlinkpaden tegelijk in Excel?
Voor een bepaald doel hebt u mogelijk meerdere hyperlinks aangemaakt in uw werkblad, die allemaal naar hetzelfde bestandspad of webadres verwijzen. Nu wilt u dit hyperlinkpad tegelijkertijd vervangen door een nieuw adres. Het handmatig aanpassen van elk pad kost echter veel tijd. Bestaat er een snelle manier om dit probleem op te lossen?
Meerdere hyperlinkpaden tegelijk wijzigen in een werkblad met VBA-code
Meerdere hyperlinkpaden tegelijk wijzigen in een werkblad met VBA-code
Stel dat u een lijst met gegevens hebt waarin dezelfde hyperlinks voorkomen, zoals in de onderstaande afbeelding is weergegeven. Met een eenvoudige VBA-code vervangt u het oude bestandspad of adres in één werkblad razendsnel door een nieuw adres.
1. Houd de toetsencombinatie ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende macro in het Modulevenster.
VBA-code: meerdere hyperlinkpaden tegelijk wijzigen
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 de toets F5 om deze code uit te voeren. Er verschijnt een dialoogvenster waarin u het oude hyperlinkadres kunt invoeren in het Oude tekst-vak. Zie afbeelding:
4. Klik op OK, waarna een nieuw dialoogvenster verschijnt waarin u het nieuwe hyperlinkadres moet invoeren dat u wilt gebruiken.
5. Klik daarna op OK. Vervolgens worden alle oude hyperlinkadressen tegelijkertijd vervangen door het nieuwe adres. Zie afbeeldingen:
|  |  |
Meerdere hyperlinkpaden tegelijk wijzigen in een werkblad / werkmap / meerdere bladen / selectie met een indrukwekkende functie
Wilt u hyperlinkpaden vervangen in een selectie, meerdere werkbladen, de huidige werkmap of zelfs meerdere werkmappen? Met de functie Zoeken en Vervangen van Kutools voor Excel voert u deze taak razendsnel uit.
Na installatie van Kutools voor Excel, gaat u als volgt te werk:
1. Klik op Kutools > Navigatie, zie afbeelding:
2. In het geopende navigatiepaneel Navigatie klikt u op het tabblad Zoeken en Vervangen. In het deelvenster Zoeken en Vervangen klikt u op het tabblad Vervangen en voert u de volgende stappen uit:
- Voer de oude hyperlinktekst die u wilt zoeken in het Zoeken naartekstvak in en typ vervolgens de nieuwe hyperlinktekst waarmee u wilt vervangen in het Vervangen doortekstvak;
- Geef het bereik op waarin u het hyperlinkpad wilt Zoeken en Vervangen via de keuzelijst Binnen;
- Selecteer vervolgens Hyperlinks in de vervolgkeuzelijst Zoeken in;
- Klik ten slotte op de knop Alles zoeken, waarna alle overeenkomende cellen met de specifieke hyperlinktekst worden weergegeven in het onderste lijstvak.
3. Klik vervolgens op de knop Alles vervangen, waardoor de oude hyperlinkpaden onmiddellijk worden gewijzigd in de nieuwe paden. Zie afbeelding:
Klik hier om Kutools voor Excel gratis te downloaden en direct te proberen!
Meer gerelateerde artikelen:
- Haal daadwerkelijke adressen uit hyperlinks
- Stel dat u een bereik met cellen hebt dat hyperlinks bevat en u wilt nu de werkelijke bestemming van die hyperlinks zien én deze uit de hyperlinks halen, zoals in de onderstaande afbeelding wordt weergegeven. Zijn er eenvoudige manieren om dit probleem snel op te lossen?
- Zet afbeeldings-URL’s om naar echte afbeeldingen in Excel
- Als u een lijst met afbeeldings-URL-adressen hebt in kolom A en u de bijbehorende afbeeldingen vanuit de URL’s wilt downloaden en weergeven in de aangrenzende kolom B, zoals op de linker afbeelding is getoond, hoe kunt u dan snel en eenvoudig de daadwerkelijke afbeeldingen uit de afbeeldings-URL’s halen in Excel?
- Zet URL-tekst om naar klikbare hyperlinks in Excel
- Stel dat u meerdere URL’s in uw werkblad hebt die nog niet als hyperlinks zijn gekoppeld. U wilt al deze niet-gekoppelde URL’s omzetten naar klikbare hyperlinks, zoals weergegeven in de afbeeldingen hieronder. Hoewel u ze één voor één kunt dubbelklikken om ze klikbaar te maken, kost dit veel tijd bij een grote hoeveelheid URL’s. Hoe zet u meerdere niet-gekoppelde URL’s automatisch om naar klikbare hyperlinks in Excel?
- Open een specifieke pagina van een PDF-document via een Excel-hyperlink
- Wanneer u een cel koppelt aan een PDF-bestand, gaat u er normaal gesproken naartoe door op de hyperlink te klikken en landt u automatisch op de eerste pagina van het PDF-bestand. Als u direct naar een specifieke pagina van het PDF-bestand wilt springen door op die hyperlink te klikken, helpt dit artikel u verder.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins