Hyperlinks / Ersetzen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Hyperlink_NeuerPfad() Dim hyLink As Hyperlink Dim strTempPfad As String Const strAlterPfad As String = "C:\AlterOrdner\" 'alter Pfad Const NeuerPfad As String = "C:\NeuerOrdner\" 'neuer Pfad For Each hyLink In ActiveSheet.Hyperlinks strTempPfad = Left$(hyLink.Address, InStrRev(hyLink.Address, "\")) If strTempPfad = strAlterPfad Then hyLink.Address = _ NeuerPfad & Right$(hyLink.Address, Len(hyLink.Address) - InStrRev(hyLink.Address, "\")) End If Next hyLink End Sub

Sub hyperlink_inhalte_ersetzen() Dim hyAdresse As Hyperlink With Worksheets("Tabelle1").UsedRange For Each hyAdresse In .Hyperlinks hyAdresse.Address = Replace(hyAdresse.Parent.Formula, "D:\Eigene Dateien\Excel\", " _ C:\Test\") Next hyAdresse End With End Sub

Hallo zusammen,
irgendwie scheint das mit dem Ersetzen bei mir nicht hinzuhauen. Vielleicht liegt es an der komplexen Ordnerstruktur?
Hier nochmals Details: Die besagten Dateien, also die Datei mit den Hyperlinks und die Quelldatei befinden sich in einem Monatsordner (z. B. 07/2008), wobei die Quelldatei dann eine Verzeichnisebene darunter liegt, also z.B.
07_2008 mit der Hyperlinkdatei und dann der Unterordner 310708 mit der Quelldatei
Dann lege ich einen neuen Monatsordne : 08_2008 an und den zugehörigen Tagesordner 310808 und kopiere die beiden Dateien aus dem "alten" Monatsverzeichnis herüber.
Wenn ich nun die Funktion in Excel "Hyperlinks" bearbeiten aufrufen, dann reicht es aus, wenn ich in der Adressleiste 310708 durch 310808 ersetze, der Pfad, denn ich dort sehe ich nicht vollständig, d.h. 07_08 fehlt z. B.. Mir ist zwar nicht klar, warum nur der Tagesordner angezeigt wird, aber es reicht aus, diesen Tagesordner manuell von 310708 auf 310808 zu ändern.
Könntet Ihr das bitte nochmal überrpüfen? Im Grunde genommen würde es wohl ausreichen die 310708 in der Adressleiste der Hyperlinks durch 310808 zu ersetzen.
Gruß
Bernd

Option Explicit Sub Hyperlink_NeuerPfad() Dim hyLink As Hyperlink Dim strTempPfad As String Const strAlterPfad As String = "07_2008" 'alter Ordner Const NeuerPfad As String = "08_2008" 'neuer Ordner For Each hyLink In ActiveSheet.Hyperlinks If InStr(hyLink.Address, strAlterPfad) > 0 Then strTempPfad = Replace(hyLink.Address, alterpfad, NeuerPfad) hyLink.Address = strTempPfad Next hyLink End Sub

Option Explicit Sub Hyperlink_NeuerPfad() Dim hyLink As Hyperlink Dim strTempPfad As String Const strAlterPfad As String = "07_2008" 'alter Ordner Const strNeuerPfad As String = "08_2008" 'neuer Ordner For Each hyLink In ActiveSheet.Hyperlinks If InStr(hyLink.Address, strAlterPfad) > 0 Then strTempPfad = Replace(hyLink.Address, strAlterPfad, strNeuerPfad) hyLink.Address = strTempPfad End If Next hyLink End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

208 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Hyperlinks / Ersetzen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

208 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread