Office: Hyperlink per VBA anpassen

Ave2010 · 24. April 2016

Hallo Forumsgemeinde,

ich probiere seit einer guten Woche daran herum, wie ich in Excel per VBA festgelegte Hyperlink-Pfade verändern kann.

Ich habe bereits in diesem sowie in andern Foren Lösungen gefunden, diese haben aber nie bei mir funktioniert.

Grundlegend war jeder Code so aufgebaut, dass alte und neue Pfade als Variablen hinterlegt wurden, um diese später in einer Schleife zu benutzen.

Mit dem nachfolgenden Code habe ich es bisher geschafft ein Hyperlink zu ändern, jedoch war dann dort der komplette Pfad manuell eingetippt worden.
Bei knapp 500 Hyperlinks wäre diese Vorgehensweise aber nicht die beste Lösung. *biggrin.gif*

Ich bräuchte nun eure Hilfe, den Code so anzupassen, dass dieser automatisiert die Hyperlinks ändert, unabhängig von ihrer zugehörigen Zieldatei.

PS: Excel liegt in den Versionen 2003 & 2013 vor.

Vielen Dank im Voraus!

Code:

Sub HyperlinkAendern()
Dim i As Long
Dim hypAlt As String
Dim hypNeu As String

'Hier alten und neuen Pfad anpassen
hypAlt = "\\test\anträge\00xxx.doc"
hypNeu = "\\testneu\anträge\00xxx.doc"

With ActiveSheet
For i = 1 To .Hyperlinks.Count
.Hyperlinks(i).Address = _
Replace(.Hyperlinks(i).Address, hypAlt, hypNeu)
Next
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

EarlFred · 26. April 2016

Hallo Voraus!

dass dieser automatisiert die Hyperlinks ändert
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ganz toll wäre gewesen, wenn Du beschrieben hättest, nach welchem Muster die Hyperlinks geändert werden sollen!

ich rate mal, dass alle PFADE nach dem gleichem Muster geändert werden sollen (ohne die Dateinamen anzupassen):
Code:

Option Explicit
Sub HyperlinkAendern()
Dim i As Long
Dim hypAlt As String
Dim hypNeu As String

'Hier alten und neuen Pfad anpassen
hypAlt = "\\test\anträge\"
hypNeu = "\\testneu\anträge\"

With ActiveSheet
For i = 1 To .Hyperlinks.Count
.Hyperlinks(i).Address = _
Replace( _
Expression:=.Hyperlinks(i).Address, _
Find:=hypAlt, _
Replace:=hypNeu, _
Compare:=vbTextCompare)
Next
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

Ave2010 · 26. April 2016

Hallo EarlFred,

ja stimmt hätte ich noch dazu schreiben sollen...

Aber richtig geraten. *biggrin.gif*

Vielen Dank es funktioniert. *top

Gruß
Ave2010

Office: Hyperlink per VBA anpassen

Hyperlink per VBA anpassen

Hyperlink per VBA anpassen

Hyperlink per VBA anpassen - Similar Threads - Hyperlink VBA anpassen

Per Hyperlink ausgeblendetes Blatt einblenden

Hyperlink VBA / Automatische Ergänzung

Menü als Navigation in VBA programmieren (Hyperlink alternative)?

VBA Hyperklink senden

VBA für automtaische Hyperlinks erweitern ...

VBA prüfen ob Bild vorhanden ist dann einpflegen mit Hyperlink zu Original

Hyperlinks automatisch erstellen