Excel: Hyperlinks aus der Arbeitsmappe in Hyperlinks auf Dateienhyperlinks ändern

Hallo Frank,

ein Hyperlink zum aktuellen Dokument hat keine Adresse sondern nur eine Subadresse.

Du musst also die Subadresse entfernen und eine korrekte Adresse einfügen:

Sub ErsetzeAlleHyperlink()

Dim neuerPfad As String

Dim myLink As HyperlinkneuerPfad = "C:\Standort\Flensburg.xlsx"

For Each myLink In Sheets("Übersicht").Hyperlinks

   myLink.SubAddress = ""

   myLink.Address = neuerPfad

Next

End Sub

Claus

Hallo Claus,

danke für den Hinweis! Auch das Einfügen eines Hyperlinks ohne das Makro funktioniert in freigegebenen Arbeitsmappen nicht. Ich habe es gerade ausprobiert.

Die Anwendung der Hyperlink-Funktion (!) in Excel mit der Syntax =Hyperlink(Hyperlink_Adresse;[freundlicher_Name]) funktioniert aber in der freigegebenen Arbeitsmappe! Das wäre der richtige Workaround für das Problem.

Man müsste dein Makro also so abändern, dass es nicht einen direkten Hyperlink in der Zelle einfügt, sondern einen String, der genau der Syntax der Hyperlink-Funktion entspricht. Das Argument
Hyperlink_Adresse müsste genau die Variable myStr
sein (wahrscheinlich in Anführungszeichen). Das Argument [freundlicher_Name]
müsste genau der eingegebene Zellinhalt sein.

Kann man das verwirklichen?

Viele Grüße,

Wolfgang

Danke für die Erklärung. Was Sie tun müssen, ist, das Linkziel zu ändern, was ich sehe, dass Sie das bereits mit Strg + K versucht haben. Bitte beachten Sie jedoch die folgenden Anweisungen und verfolgen Sie dann Ihre Schritte zurück

1. Klicken Sie mit der rechten Maustaste auf den Hyperlink, den Sie bearbeiten möchten.
2. Wählen Sie "Hyperlink bearbeiten" aus dem Einblendmenü.
3. Aktualisieren Sie die Informationen in den entsprechenden Feldern des Dialogfelds Hyperlink bearbeiten.
4. Klicken Sie auf OK und überprüfen Sie, wohin der Hyperlink jetzt springt.

Anmerkung. Wenn Sie die Hyperlink-Funktion verwendet haben, um einen Hyperlink in Excel hinzuzufügen, müssen Sie die Formel bearbeiten, um das Hyperlinkziel zu ändern. Wählen Sie die Zelle aus, die den Link enthält, und platzieren Sie dann den Cursor in der Bearbeitungsleiste, um ihn zu bearbeiten.

Diese Antwort ist automatisch übersetzt worden. Daher kann sie grammatikalische Fehler oder fremde Ausdrücke enthalten.
<br />

Hallo Corinna,

das Einfügen oder Ändern von Hyperlinks ist in freigegebenen Mappen nicht möglich.

Entferne die Freigabe und füge dann die Hyperlinks ein. Bestehende Hyperlinks sind dann auch nach Freigabe aktiv.

Claus

Nun ist die Frage, ob man den Hyperlink vor der bereits verfügbaren Bezeichnung, also abc.png setzen könnte. So, dass es in einer Spalte steht www.test.de/abc.png.

Meines Wissens nach gibt es in Word einen Befehl wie .InsertBefore. Jedoch scheint diese Funktion in Excel 2013 nicht verfügbar zu sein.

.InsertBefore gibt es in Word in allen Versionen, in Excel jedoch in keiner Version. Macht auch keinen Sinn, weil Word Texte verwaltet und Excel Zellen hat...

In Excel kann eine Zelle einen Hyperlink enthalten oder nicht. Es ist nicht möglich das ein Teil der Zelle ein normaler Text und ein anderer Teil ein Hyperlink ist.

Mit VBA kann man über Range.HyperLinks.Add einen Hyperlink hinzufügen, schau mal in die Hilfe.

With Worksheets(1)
.Hyperlinks.Add .Range("E5"), "http://example.microsoft.com"
End With

Mit einer Formel ginge es auch, aber selbst

="asd"&HYPERLINK(A1;"qwe")

bewirkt das die ganze Zelle ein Hyperlink ist, auch wenn sie nicht so aussieht. Nur bei einer Eingabe

=HYPERLINK(A1;"qwe")

wird die Zelle als Hyperlink formatiert.

Andreas.