Automatisches Anwenden von Hyperlinks von einer Zelle zu einer anderen

Ich habe eine Arbeitsmappe mit einer Spalte, die die Titel verschiedener Dokumente enthält, die auf einer Website veröffentlicht werden (B4: B6). Eine andere Spalte enthält die URLs für diese Dokumente (C4: C6). Die URL wird von der Website beim Hochladen des Dokuments erstellt und hängt immer eine Nummer an die URL an, die nicht vorhersehbar ist.

Beispieltabelle

Ich habe einen Benutzer, der es gewohnt ist, manuell einen Hyperlink in die Zelle einzufügen, die den Titel enthält, sodass die Titelzelle auf die URL verweist. Er möchte, dass die Titelzellen mit Hyperlinks versehen werden, versteht, dass der Hyperlink zu Referenzzwecken in einer eigenen Zelle vorhanden sein muss, möchte die URL jedoch nicht erneut eingeben oder kopieren und einfügen. Wie richte ich die URL-Zellen (C4: C6) ein, um die Titelzellen auf eingebettete Hyperlinks zu überprüfen, und falls vorhanden, um sie in der entsprechenden URL-Zelle zu replizieren?

Wie richte ich alternativ die Titelzellen ein, um die URL-Zellen auf Text zu überprüfen, und, falls vorhanden, diesen Text automatisch als Hyperlink in die entsprechende Titelzelle zu übernehmen?

Und am schlimmsten ist, wie mache ich das, ohne VBA / Makros zu verwenden?

Anders ausgedrückt:

Aktueller Status: Der Benutzer wendet den Hyperlink manuell auf den Titel in Spalte B an. Der Benutzer gibt den Text der URL auch manuell in Spalte C ein.

Gewünschter Status (Option 1): Der Benutzer hat den Hyperlink in Spalte B manuell auf den Titel angewendet. Der Text der URL wird automatisch aus dem Hyperlink (nicht dem Text des Titels) extrahiert und in Spalte C platziert.

Gewünschter Status (Option 2): Der Benutzer gibt den Text der URL manuell in Spalte C ein. Die URL wird automatisch als eingebetteter Hyperlink in die Zelle mit dem Titel in Spalte B übernommen.

Hilfsspalten sind bei Bedarf völlig in Ordnung.

Diese Formel untersucht eine Zelle und gibt an, ob ein Hyperlink vorhanden ist (mit der Taste Hyperlink() Formel), gibt die URL zurück. Wenn es keinen Link gibt und es sich nur um Text handelt, wird ein Link zu erstellt http://www.fakewebsite.com/[text]:

=IFERROR(MID(FORMULATEXT(A2),SEARCH("http",FORMULATEXT(A2)),SEARCH(",",FORMULATEXT(A2))-SEARCH("http",FORMULATEXT(A2))-1),HYPERLINK("http://www.fakewebsite.com/"&SUBSTITUTE(A2," ","-")))

Hinweis: Wenn es kein "http" gibt, ersetzen Sie "http" in der obigen Formel durch "www". Es funktioniert so:

Bearbeiten: Per Klarstellung extrahiert dies einen Link aus der Spalte "Dokumenttitel" und fügt nur Text ein, wenn es keinen Link gibt:

=IFERROR(MID(FORMULATEXT(A2),SEARCH("http",FORMULATEXT(A2)),SEARCH(",",FORMULATEXT(A2))-SEARCH("http",FORMULATEXT(A2))-1),"No Link")

Wenn Sie Formeln und Links verwenden möchten, die keinem einfachen Muster folgen, müssen Sie Ihre Titel in eine andere Spalte (oder Tabelle) kopieren und in Ihrer Tabelle darauf verweisen hyperlink Formel.

HYPERLINK("link","copied_title")

Schau unten;

Für die andere gewünschte Option müssen Sie noch verwenden VBA aber vielleicht würde nur eine benutzerdefinierte Option ausreichen, wie in einer der Antworten in diesem Artikel beschrieben thread: URLs aus Hyperlinks extrahieren

VBA-Lösung

Wenn Sie sich für VBA interessieren, hilft Folgendes:

Sub hyperlink_title()
    Dim i As Integer
    Dim wsh as Worksheet
    Set wsh = ThisWorkbook.ActiveSheet

    i = 4
    With wsh
    While .Cells(i, 2) <> ""

        ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i, 2), Address:=.Cells(i, 3).Value, _
        TextToDisplay:=.Cells(i, "B").Value2

        i = i + 1

    Wend

End Sub