Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige