Office: (Office 2013) Hyperlinks in Spalte via "Suchen & Ersetzen" korrigieren

Lars.Uhlmann · 4. September 2016

In einem Excel-Sheet gibt es eine Spalte, die Hyperlinks zu PDF-Dateien enthält. Die Links sind relativ angelegt, in der Form

"..\..\Ordner\Unterordner\Dokument.pdf"

Jetzt passiert es aus einem mir bisher unbekannten Grund, daß Excel den Hyperlink ändert. Da ich noch keinen Ansatz habe, was die Ursache ist, hab ich probiert, den Link absolut zu setzen (daß sich die Verzeichnisstruktur ändern wird, ist äußerst unwahrscheinlich) und damit bleiben die Links "stabil".
Ich will nun die Links in der Spalte mit einem regulären Ausdruck ändern. Die Spalte ist vom Typ Text und enthält Referenznummern, welche eben per Hyperlink zum korrespondierenden PDF-Dokument verweisen.
Kann mir jemand helfen, wie ich die Links automatisiert ändere?

Danke
Lars

:)

Scorefun · 6. September 2016

Gib mal ein konkretes Beispiel
Alter Pfad :
Neuer Pfad :

Lars.Uhlmann · 7. September 2016

Die Zelle enthält den Wert "08151234" und als Hyperlink ist gesetzt:

alt: ..\..\Material\08151234.pdf
neu: \\domain\share\Abteilung\Material\08151234.pdf

Vorsicht: der angezeigte Wert in der Zelle entspricht nur selten dem Dateinamen im Link

Scorefun · 7. September 2016

Ich würde mir erst mal alle Hyperlinks (im Beispiel Spalte A) in einer extra Spalte übertragen (z.B. Z)

Code:

dim r as long
r = 2
do while range("A" & r) ""
range("Z" & r) = range("A" & r).hyperlinks(1).Address
r = r +1
doevents
loop
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anschließend in der Spalte daneben AA die Formel:

="\\domain\share\Abteilung\" & WECHSELN(Z2;"..\";"")

Würde das Ergebnis passen?
Wenn ja, kann der neue Hyperlink gespeichert werden

Code:

dim r as Long
r = 2
do while range("A" & r) ""
range("A" & r).Hyperlinks(1).Delete
ramge("A" & r).Hyperlinks.Add Anchor:=Range("A" & r), Address:=Range("AA" & r), _
TextToDisplay:=Range("A" & r).Text
r = r +1
doevents
loop
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2013) Hyperlinks in Spalte via "Suchen & Ersetzen" korrigieren

Hyperlinks in Spalte via "Suchen & Ersetzen" korrigieren

Hyperlinks in Spalte via "Suchen & Ersetzen" korrigieren

Hyperlinks in Spalte via "Suchen & Ersetzen" korrigieren

Hyperlinks in Spalte via "Suchen & Ersetzen" korrigieren - Similar Threads - Hyperlinks Spalte via

Per Hyperlink ausgeblendetes Blatt einblenden

Bilder in einer HTML Mail werden mit Unterstrich angezeigt

Hyperlink zu Dateien

Mail senden maximale Textlänge erreicht ?

Inhalt eines Hyperlink Feldes in ein Textfeld kopieren

Spalte mit Überschrift in Hyperlink umwandeln - ohne VBA

Hyperlinks in neuer Spalte deaktivieren