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 Sub3. 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?
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins