Direkt zum Inhalt

Wie extrahiere ich tatsächliche Adressen aus Hyperlinks in Excel?

Angenommen, Sie haben eine Reihe von Zellen, die Hyperlinks enthalten, und jetzt müssen Sie das tatsächliche Ziel der Hyperlinks sehen und diese aus den Hyperlinks extrahieren, wie im folgenden Screenshot gezeigt. Gibt es einfache Möglichkeiten, dieses Problem schnell zu lösen? In diesem Artikel erfahren Sie, wie Sie tatsächliche Adressen aus mehreren Hyperlinks extrahieren.


Pfeil blau rechte Blase Extrahieren Sie tatsächliche Adressen aus Hyperlinks mit der Funktion "Hyperlink bearbeiten"

Hier, die Hyperlink bearbeiten Mit dieser Funktion können Sie die zugrunde liegende URL für jeden dieser Hyperlinks extrahieren und diese tatsächliche Adresse in eine andere Zelle einfügen. Sie können dies tun:

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

2. Und ein Hyperlink bearbeiten Dialogfeld wird angezeigt, auswählen und kopieren (Strg + C) die gesamte URL aus dem Adresse Feld des Dialogfelds.

3. Schließen Sie dann das Dialogfeld und fügen Sie die tatsächliche Adresse in eine beliebige Zelle ein.

Note: Mit dieser Methode können Sie jedes Mal nur eine Hyperlink-Adresse extrahieren. Wenn jedoch mehrere Hyperlinks extrahiert werden müssen, müssen Sie diese Funktion wiederholt anwenden.


Pfeil blau rechte Blase Extrahieren Sie tatsächliche Adressen aus Hyperlinks mit VBA-Code

Bei vielen Hyperlinks ist die oben beschriebene Methode langwierig und zeitaufwändig. Mit dem folgenden VBA-Code können Sie schnell mehrere Adressen gleichzeitig aus den Hyperlinks extrahieren.

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund 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 Sub

3. Dann drücken F5 Wenn Sie die Taste drücken, um den Code auszuführen, wird ein Dialogfeld angezeigt, in dem Sie die Hyperlinks auswählen können, mit denen Sie die tatsächlichen Adressen extrahieren möchten. Siehe Screenshot:

4. Dann klick OKund der ausgewählte Zelleninhalt wurde in die realen Hyperlink-Adressen im ursprünglichen Bereich konvertiert. Siehe Screenshots:


Pfeil blau rechte Blase Extrahieren Sie aktuelle Adressen aus Hyperlinks mit der benutzerdefinierten Funktion

Die folgende benutzerdefinierte Funktion kann auch die tatsächliche URl aus den Hyperlinks extrahieren.

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.

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, um diese Formel einzugeben = GetURL (A2) (A2 ist die Zelle, in der sich der Hyperlink befindet, und drücken Sie Enter Taste. Sie können sehen, dass die echte Hyperlink-Adresse extrahiert wurde.


Pfeil blau rechte Blase Extrahieren Sie mit Kutools for Excel schnell und einfach aktuelle Adressen aus Hyperlinks

Hier ist ein praktisches Tool namens Kutools for ExcelMit seinen Hyperlinks konvertieren Mit dieser Funktion können Sie schnell die folgenden Vorgänge ausführen:

  • Extrahieren Sie tatsächliche Adressen aus Hyperlinks;
  • Konvertieren Sie URL-Text in anklickbare Hyperlinks.
Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen.

Wenn Sie installiert haben Kutools for ExcelBitte gehen Sie wie folgt vor:

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

2. Klicken Sie Kutoolen > Link > Hyperlinks konvertieren, siehe Screenshot:

3. In dem Hyperlinks konvertieren Dialogfeld auswählen Hyperlink-Adressen ersetzen den Zelleninhalt Option und klicken Sie auf doc-button1 Taste von Ergebnisbereich um eine Zelle anzugeben, in die das Ergebnis eingefügt werden soll.

4. Und dann klick OKwurden die tatsächlichen Adressen aus den Hyperlinks extrahiert. Siehe Screenshot:

Note: Wenn Sie die tatsächlichen Adressen auf den ursprünglichen Bereich setzen möchten, überprüfen Sie dies bitte Quellbereich konvertieren.

Klicken Sie auf Kostenlos erhalten und dann auf Installieren. Hyperlinks konvertieren um mehr über diese Funktion zu erfahren.

Laden Sie Kutools for Excel jetzt herunter und testen Sie es kostenlos!


Pfeil blau rechte Blase Demo: Extrahieren Sie mit Kutools for Excel aktuelle Adressen aus Hyperlinks

Kutools for Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie es innerhalb von 30 Tagen ohne Einschränkung testen. Jetzt herunterladen und kostenlos testen!

In Verbindung stehender Artikel:

Wie konvertiere ich URL-Text in einen anklickbaren Hyperlink in Excel?

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

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, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Beschreibung


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 jeden Tag Hunderte von Mausklicks für Sie!
Comments (44)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour
Auriez vous une solution pour mettre en place le fonctionnement par la formule sur Excel 365 sur Mac ?
This comment was minimized by the moderator on the site
Hello, Edouard,
Sorry, the methods in this article are only applied to Microsoft Excel.
Thank you!
This comment was minimized by the moderator on the site
Ola colegas ,

Tenho uma planilha com mais de 2000 linhas, preciso exportar o documento que esta no hiperlink estas celulas, para um diretório da maquina, alguém sabe como fazer ?

agradeço a atenção

at..
cássia
This comment was minimized by the moderator on the site
Thank you it solve my problem
This comment was minimized by the moderator on the site
Thank you, the VBA code worked like a charm :)
This comment was minimized by the moderator on the site
Thank you for the tip to Extract Actual Addresses From Hyperlinks in Excel With VBA Code. It was exactly what I needed!
This comment was minimized by the moderator on the site
How does this apply to Excel on Mac?
This comment was minimized by the moderator on the site
I think it's nice to have an option that doesn't require macros since so many haven't used VBA at all.
This comment was minimized by the moderator on the site
If you're not comfortable with VBA, the key step to getting this done is the FORMULATEXT() formula that is included with excel. For example, if cell A1 has this...
=HYPERLINK("https://www.google.com","Google Homepage")
...then it would display "Google Homepage" but you want to extract "https://www.google.com". You can use =FORMULATEXT(A1) to get the output of "=HYPERLINK("https://google.com","Google Homepage")".

Then you use the find and mid functions to find the double quotes (which is CHAR(34)) and pull the string between the first two double quotes. Nesting it all together, you can use this formula to get the URL without any VBA required...
=MID(FORMULATEXT(A1),FIND(CHAR(34),FORMULATEXT(A1))+1,FIND(CHAR(34),FORMULATEXT(A1),FIND(CHAR(34),FORMULATEXT(A1))+1)-FIND(CHAR(34),FORMULATEXT(A1))-1)
This comment was minimized by the moderator on the site
Thankyou for an easy method to extract the complete URL from a weblink. I looked at other methods that were too nebulous but yours was straightforward and easy. Thanks.
This comment was minimized by the moderator on the site
Thanks for the " Extract actual addresses from hyperlinks with VBA code" VBA and clear instructions. It worked great for me.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations