Excel: Konvertieren Sie eine Spalte mit Hyperlinks, um nur die Links anzuzeigen

Question

In Excel habe ich eine Spalte mit Links, in der anstelle des eigentlichen Links Text angezeigt wird.

Ich brauche die Links wirklich. Gibt es eine Möglichkeit, die gesamte Spalte so zu konvertieren, dass die Links angezeigt werden? Andernfalls muss ich auf jeden Link klicken, ihn in einem Browser öffnen und die Adresse kopieren und einfügen ...

Außerdem verwende ich Excel 2008 für Mac, daher sieht es so aus, als ob ich keine Makros ausführen kann ...

Answer 1

Kurze Antwort:Ohne VBA können Sie dies nicht automatisieren.

Handbuch

Dies gilt für einen Windows 7-Computer. Ersetzen Sie einfach die Verknüpfungen durch die entsprechenden Mac-Gegenstücke.

1. Markieren Sie eine Zelle mit einem Hyperlink.
2. Drücken Sie CTRL+ K. Dadurch wird das Dialogfeld „Hyperlink“ geöffnet (siehe Abbildung unten). Sobald es geöffnet ist, befindet sich Ihr Cursor bereits im Adressfeld.
3. Drücken Sie CTRL+ A, um die gesamte URL hervorzuheben.
4. Drücken Sie CTRL+, Cum es zu kopieren.
5. Drücken Sie ESCoder Enter, um das Dialogfeld „Hyperlink“ zu schließen.
6. Fügen Sie die URL irgendwo über CTRL+ ein V.

VBA

Hier ist eine VBA-Lösung für diejenigen, die damit umgehen können.

Erstellen Sie ein VBA-Modul mit dem folgenden Code:

Public Function GetURL(c As Range) As String
    On Error Resume Next
    GetURL = c.Hyperlinks(1).Address
End Function

Geben Sie zur Verwendung Folgendes in eine beliebige Zelle ein:

=GetURL(A1)

wobei A1 einen Hyperlink enthält.

Die Funktion im Einsatz:

Answer 2

Das klingt vielleicht nach einer Methode mit roher Gewalt, aber es ist die beste Methode, die mir eingefallen ist. (Ich habe diese Seite entdeckt, als ich vor einer Stunde selbst die gleiche Frage hatte ... man könnte den ganzen Tag damit verbringen, danach zu suchen, aber manchmal ist es einfacher, es zu tun und damit fertig zu sein.)

1) Kopieren Sie nur die Zellen, die die Hyperlinks enthalten, und fügen Sie sie in eine neue Tabelle ein.

2) Exportieren Sie die Tabelle, klicken Sie auf „Dateityp ändern“, wählen Sie „Unter einem anderen Dateityp speichern“ und speichern Sie sie als Webseite (auch als HTML-Datei bekannt).

3) Öffnen Sie die Webseite in Ihrem Browser und zeigen Sie die Quelle an.

4) Kopieren Sie die Quelle und fügen Sie sie in einen Texteditor ein.

5) Entfernen Sie mit der Suchen/Ersetzen-Funktion des Texteditors den führenden und nachfolgenden Text jedes Hyperlinks. (Mit anderen Worten: Ersetzen Sie den besagten Text durch nichts: "") Beachten Sie, dass dieser Text für jeden Hyperlink identisch sein sollte.

6) Sie sollten jetzt eine Textdatei mit nichts als Hyperlinks haben. Kopieren Sie sie nach Bedarf und fügen Sie sie wieder in Ihre ursprüngliche Tabelle ein oder verwenden Sie sie, wie und wo immer Sie möchten.

Bearbeitet, um anzugeben, dass Sie tatsächlich in eine separate Datei exportieren können, nämlich HTM. Schließen Sie die Datei und öffnen Sie sie erneut in Excel, dann ist das Problem gelöst. Die Formel =Hyperlink ist verschwunden und die Links werden in normale Links umgewandelt. Diese Methode hat mir Stunden gespart und war kinderleicht, und ich musste mich nicht mit Skripten, Formeln, VBA oder Makros herumschlagen.

Answer 3

Ich verwende einen Mac und das hat bei mir funktioniert: Markieren Sie die Spalte, die Sie konvertieren müssen, öffnen Sie im Menü „Einfügen“ „Hyperlink“. Löschen Sie jeglichen Text, der im Anzeigefeld angezeigt wird. Wenn Ihr Anzeigetext in den einzelnen Zellen unterschiedlich ist, wird „[mehrere Zellen ausgewählt]“ angezeigt. Sobald Sie auf „OK“ klicken, werden nur die Links in Ihrem Arbeitsblatt angezeigt. Wenn Sie einzelne Zellen und nicht eine ganze Spalte konvertieren müssen, markieren Sie alle Zellen, die Sie konvertieren müssen, klicken Sie mit der rechten Maustaste, wählen Sie „Hyperlink bearbeiten“ und befolgen Sie dieselben Schritte, um den Text im Anzeigefeld zu löschen.

Answer 4

In den Jahren, seit diese Frage in Excel gestellt wurde, hat jemand in meiner Firma diese =GetURL(cell)Funktion zu unserer globalen XLAM-Datei hinzugefügt und ich dachte, sie sei Teil der Excel-Basis. Hier ist das VBA ...

Public Function GetURL(cell As Range, Optional default_value As Variant) As Variant
      Dim output As Variant
      If (cell.Range("A1").Hyperlinks.Count <> 1) Then
          output = default_value
      Else
          output = cell.Range("A1").Hyperlinks(1).Address
      End If
      GetURL = output
End Function