Wie extrahiert man die tatsächlichen Adressen aus Hyperlinks in Excel?
Angenommen, Sie haben einen Zellbereich mit Hyperlinks und möchten das eigentliche Ziel dieser Hyperlinks einsehen sowie die Adressen – wie im folgenden Screenshot gezeigt – extrahieren. Gibt es eine einfache Möglichkeit, dieses Vorhaben schnell umzusetzen? In diesem Artikel erfahren Sie, wie Sie die tatsächlichen Adressen aus mehreren Hyperlinks effizient extrahieren können.
Extrahieren Sie tatsächliche Adressen aus Hyperlinks mithilfe der Funktion Hyperlink bearbeiten
Extrahieren Sie tatsächliche Adressen aus Hyperlinks mit Kutools für Excel schnell und einfach
Extrahieren Sie tatsächliche Adressen aus Hyperlinks mithilfe von VBA-Code
Extrahieren Sie tatsächliche Adressen aus Hyperlinks mithilfe einer benutzerdefinierten Funktion
Extrahieren Sie tatsächliche Adressen aus Hyperlinks mithilfe der Funktion Hyperlink bearbeiten
Hier hilft Ihnen die Hyperlink bearbeiten-Funktion dabei, die zugrunde liegende URL jedes dieser Hyperlinks zu extrahieren und die tatsächliche Adresse in eine andere Zelle einzufügen. Gehen Sie dazu wie folgt vor:
1. Wählen Sie die Zelle mit dem Hyperlink aus, klicken Sie mit der rechten Maustaste und wählen Sie im Kontextmenü Hyperlink bearbeiten. Siehe Screenshot:
2. Anschließend wird das Dialogfeld Hyperlink bearbeitenangezeigt. Markieren und kopieren Sie ()Strg+C) die vollständige URL aus dem Feld Adressedes Dialogfelds.
3. Schließen Sie danach das Dialogfeld und fügen Sie die tatsächliche Adresse in eine beliebige Zelle ein.
Hinweis: Mit dieser Methode können Sie jeweils nur eine Hyperlink-Adresse extrahieren. Wenn Sie mehrere Hyperlinks extrahieren möchten, müssen Sie diese Funktion wiederholt anwenden.
Extrahieren Sie tatsächliche Adressen aus Hyperlinks mit Kutools für Excel schnell und einfach
Hier ist ein praktisches Tool namens Kutools für Excel, mit dessen Hyperlinks konvertieren-Funktion Sie die folgenden Aufgaben schnell erledigen können:
- Extrahieren Sie tatsächliche Adressen aus Hyperlinks;
- Konvertieren Sie URL-Text in anklickbare Hyperlinks.
Wenn Sie Kutools für Excelinstalliert haben, gehen Sie wie folgt vor:
1. Wählen Sie den Bereich aus, der die zu extrahierenden Hyperlinks enthält.
2. Klicken Sie auf Kutools > Link > Hyperlinks konvertieren, siehe Screenshot:
3. Wählen Sie im Dialogfeld Hyperlinks konvertieren die Option Hyperlink-Adresse in Zellinhalt konvertieren aus und klicken Sie auf die Schaltfläche 
im Bereich Ergebnisbereich, um eine Zelle für das Ergebnis festzulegen.
4. Klicken Sie anschließend auf OK, um die tatsächlichen Adressen aus den Hyperlinks zu extrahieren. Siehe Screenshot:
Hinweis: Wenn Sie die tatsächlichen Adressen im ursprünglichen Bereich platzieren möchten, aktivieren Sie bitte die Option Quellbereich konvertieren.
Laden Sie Kutools für Excel jetzt herunter und testen Sie es kostenlos!
Extrahieren Sie tatsächliche Adressen aus Hyperlinks mithilfe von VBA-Code
Bei einer großen Anzahl von Hyperlinks wird die oben beschriebene Methode schnell mühsam und zeitaufwendig. Der folgende VBA-Code ermöglicht es Ihnen daher, mehrere Adressen gleichzeitig effizient aus den Hyperlinks zu extrahieren.
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.
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. Drücken Sie anschließend die Taste F5, um den Code auszuführen. Es erscheint ein Dialogfeld, in dem Sie die Hyperlinks auswählen können, deren echte Adressen Sie extrahieren möchten. Siehe Screenshot:
4. Klicken Sie dann auf OK, und der Inhalt der ausgewählten Zellen wird im ursprünglichen Bereich in echte Hyperlink-Adressen umgewandelt. Siehe Screenshots:
 |  |  |
Extrahieren Sie tatsächliche Adressen aus Hyperlinks mithilfe einer benutzerdefinierten Funktion
Die folgende benutzerdefinierte Funktion kann ebenfalls die tatsächliche URL aus Hyperlinks extrahieren.
1. Halten Sie die Tasten ALT + F11gedrückt, um das Fenster Microsoft Visual Basic for Applicationszu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.
Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
GetURL = pWorkRng.Hyperlinks(1).Address
End Function
3. Speichern Sie den Code und schließen Sie dieses Fenster. Wählen Sie eine leere Zelle aus, geben Sie die Formel =GetURL(A2)ein ()A2 ist die Zelle, in der sich der Hyperlink befindet) und drücken Sie die Taste Enter. Die echte Hyperlink-Adresse wird extrahiert.
Verwandter Artikel:
Wie wandelt man URL-Text in Excel in anklickbare Hyperlinks um?
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