Wie listet man alle Hyperlinks in Excel schnell auf?
Wenn Sie ein Arbeitsblatt nutzen, enthalten dieses möglicherweise zahlreiche Hyperlinks – und manchmal brauchen Sie eine schnelle Übersicht, wohin die verknüpften Texte führen. Jeden einzelnen anzuklicken, ist mühsam und kostet Zeit. Könnte man alle Hyperlinks mitsamt ihren Anzeigetexten und Zieladressen übersichtlich in einem Arbeitsblatt auflisten, ließe sich die gesamte Hyperlink-Struktur in Excel mühelos prüfen.
Alle ausgewählten Hyperlinks mithilfe von VBA-Code auflisten
Alle tatsächlichen Adressen aus Hyperlinks mit Kutools für Excel extrahieren
Alle ausgewählten Hyperlinks mithilfe von VBA-Code auflisten
1. Wählen Sie den Bereich aus, der die Hyperlinks enthält, die Sie auflisten möchten.
2. Klicken Sie auf Entwicklertools > Visual Basic. Es öffnet sich ein neues Fenster von Microsoft Visual Basic for Applications. Klicken Sie anschließend auf Einfügen > Modul und geben Sie den folgenden Code in das Modul ein:
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. Klicken Sie anschließend auf die Schaltfläche 
, um den Code auszuführen. Alle Hyperlinks werden dann in einem neuen Arbeitsblatt mit dem Namen Hyperlink-Liste angezeigt. Siehe Screenshot:
Alle tatsächlichen Adressen aus Hyperlinks mit Kutools für Excel extrahieren
Mit der Kutools für Excel-Funktion „Hyperlinks konvertieren“ extrahieren Sie im Handumdrehen die tatsächlichen Adressen aus Hyperlinks.
1. Wählen Sie die Hyperlinks aus, deren tatsächliche Zieladressen Sie extrahieren möchten.
2. Klicken Sie dann auf Kutools > Link > Hyperlinks konvertieren, siehe Screenshot:
3. Wählen Sie im Dialogfeld Hyperlinks konvertieren die Option Hyperlink-Adresse in Zellinhalt konvertieren im Abschnitt Umwandlungstyp aus, und geben Sie anschließend im Abschnitt Ergebnisbereich die Zelle an, in der das Ergebnis platziert werden soll. Siehe Screenshot:
4. Klicken Sie anschließend auf die Schaltfläche OK. Alle tatsächlichen Adressen wurden aus den Hyperlinks extrahiert. Siehe Screenshot:
Hinweis: Quellbereich konvertieren: Wenn Sie diese Option aktivieren, werden die extrahierten Ergebnisse im ursprünglichen Zellbereich platziert.
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
Verwandter Artikel:
Wie entfernt man alle Hyperlinks in Excel schnell und effizient?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins