Hoe haalt u de daadwerkelijke URL’s uit hyperlinks in Excel?
Stel dat u een bereik met cellen hebt dat hyperlinks bevat en u wilt nu de werkelijke bestemming van die hyperlinks zien én extraheren, zoals in de afbeelding hieronder is weergegeven. Zijn er eenvoudige manieren om dit snel voor elkaar te krijgen? In dit artikel leest u hoe u de daadwerkelijke URL’s uit meerdere hyperlinks haalt.
Haal daadwerkelijke adressen uit hyperlinks met de functie Hyperlink bewerken
Haal daadwerkelijke adressen uit hyperlinks met Kutools voor Excel snel en eenvoudig
Haal daadwerkelijke adressen uit hyperlinks met VBA-code
Haal daadwerkelijke adressen uit hyperlinks met een door de gebruiker gedefinieerde functie
Haal daadwerkelijke adressen uit hyperlinks met de functie Hyperlink bewerken
Hier kan de functie Hyperlink bewerken u helpen de onderliggende URL van elke hyperlink te extraheren en het daadwerkelijke adres in een andere cel te plaatsen. U kunt als volgt te werk gaan:
1. Selecteer de cel met de hyperlink, klik met de rechtermuisknop en kies in het contextmenu Hyperlink bewerken, zie afbeelding:
2. Er verschijnt een dialoogvenster Hyperlink bewerken. Selecteer en kopieer ()Ctrl+C) de volledige URL uit het veld Adres van het dialoogvenster.
3. Sluit daarna het dialoogvenster en plak het werkelijke adres in een willekeurige cel.
Opmerking: Met deze methode kunt u maar één hyperlinkadres per keer extraheren. Als u meerdere hyperlinks wilt extraheren, moet u deze functie herhaaldelijk toepassen.
Haal daadwerkelijke adressen uit hyperlinks met Kutools voor Excel snel en eenvoudig
Er is een handige tool, genaamd Kutools voor Excel, met de functie Hyperlinks converterenwaarmee u de volgende bewerkingen snel kunt uitvoeren:
- Haal daadwerkelijke adressen uit hyperlinks;
- Zet URL-tekst om naar klikbare hyperlinks.
Als u Kutools voor Excelhebt geïnstalleerd, gaat u als volgt te werk:
1. Selecteer het bereik met de hyperlinks die u wilt extraheren.
2. Klik op Kutools > Link > Hyperlinks converteren, zie afbeelding:
3. Selecteer in het dialoogvenster Hyperlinks converteren de optie Hyperlinkadres converteren naar celinhoud en klik op de knop 
OK. Geef vervolgens in het veld Resultaatbereik een cel op waarin het resultaat moet worden geplaatst.
4. Klik vervolgens op OK. De daadwerkelijke adressen zijn nu uit de hyperlinks verwijderd. Zie afbeelding:
Opmerking: Als u de daadwerkelijke adressen op de oorspronkelijke locatie wilt plaatsen, vink dan Bronbereik converteren aan.
Download en probeer Kutools voor Excel vandaag nog gratis!
Haal daadwerkelijke adressen uit hyperlinks met VBA-code
Bij een groot aantal hyperlinks wordt de bovenstaande methode tijdrovend en vervelend. Daarom helpt de volgende VBA-code u om snel meerdere adressen tegelijkertijd uit de hyperlinks te halen.
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het modulevenster.
Sub Extracthyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
If Rng.Hyperlinks.Count > 0 Then
Rng.Value = Rng.Hyperlinks.Item(1).Address
End If
Next
End Sub3. Druk vervolgens op de toets F5 om de code uit te voeren. Er verschijnt een dialoogvenster waarin u de hyperlinks kunt selecteren waarvan u de echte adressen wilt extraheren, zie afbeelding:
4. Klik daarna op OK. De inhoud van de geselecteerde cellen is nu omgezet naar het echte hyperlinkadres op de oorspronkelijke locatie. Zie afbeeldingen:
 |  |  |
Haal daadwerkelijke adressen uit hyperlinks met een door de gebruiker gedefinieerde functie
De volgende door de gebruiker gedefinieerde functie haalt ook de daadwerkelijke URL uit de hyperlinks.
1. Houd de toetsen ALT + F11ingedrukt om het venster Microsoft Visual Basic for Applicationste openen.
2. Klik op Invoegen > Module en plak de volgende code in het modulevenster.
Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
GetURL = pWorkRng.Hyperlinks(1).Address
End Function
3. Sla de code op en sluit dit venster. Selecteer een lege cel en typ de formule =GetURL(A2) (A2 is de cel met de hyperlink) en druk op Enter. U ziet dat het echte hyperlinkadres is geëxtraheerd.
Gerelateerd artikel:
Hoe zet u URL-tekst om in een klikbare hyperlink in Excel?
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