Hoe kunt u snel alle hyperlinks in Excel tonen?
Wanneer u een werkblad gebruikt, voegt u er mogelijk talloze hyperlinks aan toe en wilt u soms weten waar de bijbehorende teksten naar verwijzen. Ze één voor één aanklikken is vervelend en tijdrovend. Als u alle hyperlinks — inclusief hun weergavetekst en hyperlinkadres — in één overzichtelijk werkblad kunt tonen, wordt het eenvoudig om al uw Excel-hyperlinks snel en efficiënt te controleren.
Alle geselecteerde hyperlinks weergeven met VBA-code
Alle werkelijke adressen uit hyperlinks extraheren met Kutools voor Excel
Alle geselecteerde hyperlinks weergeven met VBA-code
1. Selecteer het bereik met de hyperlinks die u wilt weergeven.
2. Klik op Ontwikkelaar > Visual Basic. Er verschijnt nu een nieuw Microsoft Visual Basic for Applications-venster. Klik op Invoegen > Module en voer de volgende code in de module in:
Option Explicit
Private Function GetHyperAddy(Cell As Range) As String
On Error Resume Next
GetHyperAddy = Cell.Hyperlinks.Item(1).Address
If Err.Number <> 0 Then GetHyperAddy = "None"
On Error GoTo 0
End Function
Sub DistillHyperlinks()
Dim HyperAddy As String, cl As Range, wsTarget As Worksheet, clSource As Range
Application.ScreenUpdating = False
Set clSource = Selection
On Error Resume Next
Set wsTarget = Sheets("Hyperlink List")
If Err.Number <> 0 Then
Set wsTarget = Worksheets.Add
With wsTarget
.Name = "Hyperlink List"
With .Range("A1")
.Value = "Location"
.ColumnWidth = 20
.Font.Bold = True
End With
With .Range("B1")
.Value = "Displayed Text"
.ColumnWidth = 25
.Font.Bold = True
End With
With .Range("C1")
.Value = "Hyperlink Target"
.ColumnWidth = 40
.Font.Bold = True
End With
End With
Set wsTarget = Sheets("Hyperlink List")
End If
On Error GoTo 0
For Each cl In clSource
HyperAddy = GetHyperAddy(cl)
If Not HyperAddy = "None" Then
With wsTarget.Range("A65536").End(xlUp).Offset(1, 0)
.Parent.Hyperlinks.Add Anchor:=.Offset(0, 0), _
Address:="", SubAddress:=(cl.Parent.Name) & "!" & (cl.Address)
.Offset(0, 1).Value = cl.Text
.Hyperlinks.Add Anchor:=.Offset(0, 2), Address:=HyperAddy
End With
End If
Next cl
wsTarget.Select
End Sub3. Klik vervolgens op de knop 
om de code uit te voeren. Alle hyperlinks worden dan weergegeven in een nieuw werkblad met de naam Hyperlinklijst. Zie de schermafbeelding:
Alle werkelijke adressen uit hyperlinks extraheren met Kutools voor Excel
Met de Kutools voor Excel’s Hyperlinks converteren-functie haalt u in een handomdraai de werkelijke adressen uit hyperlinks!
1. Selecteer de hyperlinks waarvan u de werkelijke doelen wilt extraheren.
2. Klik vervolgens op Kutools > Link > Hyperlinks converteren, zie de schermafbeelding:
3. In het dialoogvenster Hyperlinks converteren selecteert u de optie Hyperlinkadres converteren naar celinhoud in het gedeelte Conversietype en geeft u vervolgens een cel op waar u het resultaat wilt plaatsen onder het gedeelte Resultaatbereik. Zie de schermafbeelding:
4. Klik daarna op de knop OK. Alle werkelijke adressen zijn nu uit de hyperlinks geëxtraheerd. Zie de schermafbeelding:
Opmerking: Bronbereik converteren: als u deze optie inschakelt, verschijnen de geëxtraheerde resultaten in het oorspronkelijke celbereik.
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Gerelateerd artikel:
Hoe verwijdert u snel alle hyperlinks 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