Note: The other languages of the website are Google-translated. Back to English
Einloggen  \/ 
x
or
x
Registrieren  \/ 
x

or

Wie liste ich schnell alle Hyperlinks in Excel auf?

Wenn wir ein Arbeitsblatt verwenden, erstellen wir möglicherweise viele Hyperlinks darin, und manchmal müssen wir wissen, wo die Texte verlinken. Wenn Sie nacheinander darauf klicken, ist dies mühsam und zeitaufwändig. Wenn wir alle Hyperlinks mit Texten und Hyperlinkadressen in einem Arbeitsblatt auflisten können, können wir alle Hyperlinks in Excel leicht überprüfen.

Listen Sie alle ausgewählten Hyperlinks mit VBA-Code auf

Extrahieren Sie mit Kutools for Excel alle tatsächlichen Adressen aus Hyperlinks


Pfeil blau rechte Blase Listen Sie alle ausgewählten Hyperlinks mit VBA-Code auf

1. Wählen Sie den Bereich aus, der die Hyperlinks enthält, die Sie auflisten möchten.

2. Klicken Sie Developer>Visual BasicEin neuer Microsoft Visual Basic für Anwendungen Fenster wird angezeigt, klicken Sie auf Insert>Modulund 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 Sub

3. Dann klick doc-multiplizieren-berechnen-3 Schaltfläche, um den Code auszuführen. Alle Hyperlinks werden in einem neuen Arbeitsblatt mit dem Namen angezeigt Hyperlink-Liste. Siehe Screenshot:

doc-list-all-hyperlinks


Pfeil blau rechte Blase Extrahieren Sie mit Kutools for Excel alle tatsächlichen Adressen aus Hyperlinks

Mit den Kutools for Excel Hyperlinks konvertieren Mit dieser Funktion können Sie schnell die tatsächlichen Adressen aus den Hyperlinks extrahieren.

Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. 

Nach der Installation Kutools for ExcelBitte gehen Sie wie folgt vor :( Laden Sie Kutools for Excel jetzt kostenlos herunter )

1. Wählen Sie die Hyperlinks aus, aus denen Sie die tatsächlichen Ziele extrahieren möchten.

2. Dann klick Kutools > Link > Hyperlinks konvertieren, siehe Screenshot:

3. In dem Hyperlinks konvertieren Dialogfeld auswählen Hyperlink-Adressen ersetzen den Zelleninhalt Option von der Typ konvertieren Geben Sie dann eine Zelle an, in der Sie das Ergebnis unter dem Feld ablegen möchten Ergebnisbereich Abschnitt, siehe Screenshot:

doc-list-all-hyperlinks

4. Dann klick OK Schaltfläche, alle realen Adressen wurden aus den Hyperlinks extrahiert, siehe Screenshot:

doc-list-all-hyperlinks

Hinweis: Quellbereich konvertieren: Die extrahierten Ergebnisse befinden sich im ursprünglichen Zellbereich, wenn Sie diese Option aktivieren.

Laden Sie Kutools for Excel jetzt kostenlos herunter


Verwandte Artikel:

Wie lösche ich schnell alle Hyperlinks in Excel?


Die besten Tools für die Office-Produktivität

Kutools für Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formula Bar (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Vollständige Funktionen 30 Tage kostenlose Testversion. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50% und reduziert täglich Hunderte von Mausklicks für Sie!
officetab unten
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Dave · 6 years ago
    seems you forgot to tell folks to select a range. if I select a range of cells it creates the list, otherwise I get an empty list like yael did.
  • To post as a guest, your comment is unpublished.
    Kurt · 6 years ago
    This was a life saver. For anyone looking to have the hyperlink display where documents are stored on a network path, this should work for you. I didn't select anything, followed the steps, and it created a new sheet with the links expanded which I was able to turn into plain text and use as raw data.
  • To post as a guest, your comment is unpublished.
    DataAnalyst · 6 years ago
    Hi,
    It seems that the address selection applies to only web pages and not to other places in the document.
    - SH
  • To post as a guest, your comment is unpublished.
    mcnulty · 7 years ago
    This is awesome!
    Is there a way to show the full path?
    It seems to be truncating the file path a little.
  • To post as a guest, your comment is unpublished.
    SHAD · 7 years ago
    this is a treasure!!!
    thank you
  • To post as a guest, your comment is unpublished.
    yael · 7 years ago
    It does not work. Just empty page created