Wie extrahiert man tatsächliche Adressen aus Hyperlinks in Excel?

Angenommen, Sie haben einen Zellbereich, der Hyperlinks enthält, und nun möchten Sie das eigentliche Ziel der Hyperlinks sehen und sie wie im folgenden Screenshot gezeigt aus den Hyperlinks extrahieren. Gibt es einfache Möglichkeiten, dieses Problem schnell zu lösen? Dieser Artikel wird Ihnen zeigen, wie Sie tatsächliche Adressen aus mehreren Hyperlinks extrahieren.

Tatsächliche Adressen aus Hyperlinks mit der Funktion „Hyperlink bearbeiten“ extrahieren

Tatsächliche Adressen aus Hyperlinks mit Kutools für Excel schnell und einfach extrahieren

Tatsächliche Adressen aus Hyperlinks mit VBA-Code extrahieren

Tatsächliche Adressen aus Hyperlinks mit einer benutzerdefinierten Funktion extrahieren

Tatsächliche Adressen aus Hyperlinks mit der Funktion „Hyperlink bearbeiten“ extrahieren

Hier kann die Funktion „Hyperlink bearbeiten“ helfen, die zugrunde liegende URL für jeden dieser Hyperlinks zu extrahieren und diese tatsächliche Adresse in eine andere Zelle einzufügen. Sie können wie folgt vorgehen:

1. Wählen Sie die Zelle mit dem Hyperlink aus und klicken Sie mit der rechten Maustaste. Wählen Sie im Kontextmenü „Hyperlink bearbeiten“, siehe Screenshot:

2. Ein Dialogfeld „Hyperlink bearbeiten“ wird angezeigt. Wählen Sie die gesamte URL im Feld Adresse des Dialogfelds aus und kopieren Sie sie (Strg+C).

3. Schließen Sie dann 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 jedoch mehrere Hyperlinks extrahieren müssen, müssen Sie diese Funktion wiederholt anwenden.

Tatsächliche Adressen aus Hyperlinks mit Kutools für Excel schnell und einfach extrahieren

Hier ist ein praktisches Tool namens Kutools für Excel, mit dessen Funktion „Hyperlinks konvertieren“ Sie die folgenden Operationen schnell durchführen können:

• Tatsächliche Adressen aus Hyperlinks extrahieren;
• URL-Text in klickbare Hyperlinks umwandeln.

Wenn Sie Kutools für Excel installiert haben, gehen Sie bitte wie folgt vor:

1. Wählen Sie den Bereich aus, der die zu extrahierenden Hyperlinks enthält.

2. Klicken Sie auf Kutools > Verknüpfung > Hyperlinks konvertieren, siehe Screenshot:

3. Im Hyperlinks konvertieren Dialogfeld auswählen Hyperlink-Adressen ersetzen Zelleninhalte Option und klicken Sie auf Schaltfläche von Ergebnisbereich um eine Zelle anzugeben, in die das Ergebnis eingefügt werden soll.

4. Klicken Sie dann auf OK, die tatsächlichen Adressen wurden aus den Hyperlinks extrahiert. Siehe Screenshot:

Hinweis: Wenn Sie die tatsächlichen Adressen in den ursprünglichen Bereich einfügen möchten, aktivieren Sie bitte „Quellbereich konvertieren“.

Jetzt Kutools für Excel herunterladen und kostenlos testen!

Tatsächliche Adressen aus Hyperlinks mit VBA-Code extrahieren

Bei vielen Hyperlinks ist die obige Methode mühsam und zeitaufwendig, daher kann der folgende VBA-Code helfen, mehrere Adressen auf einmal 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 im 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 Sub

3. Drücken Sie dann die Taste F5, um den Code auszuführen, und ein Dialogfeld erscheint, in dem Sie die Hyperlinks auswählen können, aus denen Sie die tatsächlichen Adressen extrahieren möchten, siehe Screenshot:

4. Klicken Sie dann auf OK, und die ausgewählten Zelleninhalte wurden in die tatsächlichen Hyperlink-Adressen im ursprünglichen Bereich umgewandelt. Siehe Screenshots:

Tatsächliche Adressen aus Hyperlinks mit einer benutzerdefinierten Funktion extrahieren

Die folgende benutzerdefinierte Funktion kann auch die tatsächliche URL aus den Hyperlinks 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 im 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 das Fenster. Wählen Sie eine leere Zelle aus, geben Sie diese Formel =GetURL(A2) ein (A2 ist die Zelle, in der sich der Hyperlink befindet), und drücken Sie die Eingabetaste. Sie sehen, dass die tatsächliche Hyperlink-Adresse extrahiert wurde.

Verwandter Artikel:

Wie konvertiert man URL-Text in klickbare Hyperlinks in Excel?