Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlinks verändern ???

Forumthread: Hyperlinks verändern ???

Hyperlinks verändern ???
08.12.2003 12:08:01
Kai
Hi,
haben bei uns server umgestellt und nun können unsere angelegeten hyperlinks die daten nicht mehr finden. mit suchen/erstezen verändert man ja nur die hyperlink-bezeichnung und nicht den eigentlichen hyperlink. doch wie bekomme ich einen automatischen ablauf hin (es sind circa 5000 dieser links).
danke für eure hilfe
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlinks verändern ???
08.12.2003 12:59:28
Martin Beck
Hallo Kai,

versuch's mal so:


Sub Hyperlinks_aendern()
AltPfad = "AltTest1"
Neupfad = "NeuTest2"
For Each hyp In ActiveSheet.Hyperlinks
hyp.Address = Application.WorksheetFunction.Substitute(hyp.Address, AltPfad, Neupfad)
'MsgBox hyp.Address
Next
End Sub


Die Pfade mußt Du natürlich anpassen.

Gruß
Martin Beck
Anzeige
AW: Hyperlinks verändern ???
08.12.2003 13:01:19
Michael Brueggemann
Hallo Kai,

dieser Code sollte es tun (im aktuellen Sheet). Bei den Konstanten einfach den alten Namen (alte IP-Adresse) des Servers und den neuen Namen (IP-Adresse) anpassen:

Option Explicit

Const strAlteAdresse As String = "alt"
Const strNeueAdresse As String = "neu"


Sub Links_veraendern()
Dim h As Hyperlink
For Each h In ActiveSheet.Hyperlinks
h.Address = Replace(h.Address, strAlteAdresse, strNeueAdresse)
Next h
End Sub


CIAO
Michael
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige