Hyperlink in Zelle ändern

Computer: Software & Programmierung Office Software
1

Ich habe in einer Exeldatei in jeder Zelle der Spalte A einen Hyperlink zu einem PDF-Dokument. Der Pfad ist immer der gleiche, aber der Dateiname ist jedes Mal ein anderer. Kann ich den Pfadnamen (wenn ja, wie?)( *D:\Test\Pfad* datei1-n.pdf) in alle Zellen gleichzeitig umändern in ( *F:\Neu\Pfad* datei.pdf)?
Für eine Lösung im voraus DANKE!
Gruß Didi

2

Ich habe in einer Exeldatei in jeder Zelle der Spalte A einen
Hyperlink zu einem PDF-Dokument. Der Pfad ist immer der
gleiche, aber der Dateiname ist jedes Mal ein anderer. Kann
ich den Pfadnamen (wenn ja, wie?)( *D:\Test\Pfad* datei1-n.pdf)
in alle Zellen gleichzeitig umändern in (*F:\Neu\Pfa
d* datei.pdf)?

Hallo Didi,

soll die Anzeige auch geändert werden?

Option Explicit

Sub PfadWechsel()
Dim Zei As Long
With Worksheets("Tabelle3")
 For Zei = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
 If .Cells(Zei, 1).Hyperlinks.Count = 1 Then
 With .Cells(Zei, 1).Hyperlinks(1)
 .Address = Replace(.Address, "D:\Test\Pfad\", "F:\Neu\Pfad\")
 '.TextToDisplay = Replace(.TextToDisplay, "D:\Test\Pfad\", "F:\Neu\Pfad\")
 End With
 End If
 Next Zei
End With
End Sub

Gruß
Reinhard

3

Hallo Reinhard,
vielen Dank. Es hat funktioniert.

Gruß Didi