Hallo Frank,
ich habe auf meiner Lösungssuche folgendes Makro von dir gefunden:
Re: hyperlinks in Excel aktualisierenHallo Hilfe78,
mit dem folgenden Makro kannst du das Ersetzen des Pfades durchführen, falls der Dateiname mit Pfad auch in den Zellen steht erfolgt auch im Zellwert die Ersetzung. ggf. im Code die zu ersetzenden Teile (Alt und Neu) des Pfades anpassen, Zellen mit den Hyperlinks selektieren, dann Makro starten
Gruß
Franz
Sub HyperlinkAktualisierungPfad()
Dim oHyperlink As Hyperlink
Dim Zelle As Range
Dim PfadOld As String
Dim PfadNew As String
PfadOld = "\sw\" 'gesamter Pfad oder Teil des Pfades, der ersetzt werden soll
PfadNew = "\PDF\sw\" 'neuer gesamter oder Teil des Pfades
For Each Zelle In Selection
If Zelle.Hyperlinks.Count \> 0 Then
Set oHyperlink = Zelle.Hyperlinks(1)
With oHyperlink
.Address = Replace(.Address, PfadOld, PfadNew)
End With
If InStr(1, Zelle.Value, PfadOld) \> 0 Then
Zelle.Value = Replace(Zelle.Value, PfadOld, PfadNew)
End If
End If
Next
End Sub
Habe eine Tabelle, welche eine Legende und Datenblätter enthält.
In den Datenblättern gibt es eine Spalte (F:smile: in der Hyperlinks zu entsprechenden Dokumenten sind.
Nun möchte ich, dass der Laufwerksbuchstabe im Hyüerlink (=Hyperlink(h:…) verändert werden kann, da die USB Laufwerksbezeichnungen variieren.
Wenn ich in deinem o.g. Makro die entsprechenden Buchstaben einsetze, passiert nichts.
Ich vermute, dass es daran liegt, dass ich die zu ändernden Tabellenblätter (1980 bis 1934) noch nicht benannt habe.
Für jede Antwort auf […] bin ich dankbar.
Liebe Grüße,
Tommy.
[MOD]: E-Mailadressen wegen Mißbrauchsgefahr entfernt.