mehrere Hyperlinks bearbeiten
23.11.2016 18:02:46
Daniel
eventuell opfert mal wieder jemand seine Freizeit, um mir zu helfen. Danke im Voraus.
Problem:
Alle Hyperlinks in einer Datei sollen am Anfang geändert werden:
vorher: file:///\\fritz\EWI\TT3\b\TTb-Ver.xls
nachher: r:/TT3\b\TTb-Ver.xls
vorher: file:///\\fritz\EK\Int2\a\Int2-Ver.xls
nachher: o:/Int2\a\Int2-Ver.xls
Dazu habe ich einen aus meiner Sicht den passenden Codeschnipsel gefunden, der nicht laufen mag.
Das Programm läuft augenscheinlich durch, aber es passiert nichts. Im Debugmodus kommt die Meldung Die Objektvariable oder die With-Blockvariable wurde nicht festgelegt.
Kann mir jemand den Code geradebiegen?
Sub test()
Dim hLink As Hyperlink
Dim wSheet As Worksheet
For Each wSheet In Worksheets
For Each hLink In wSheet.Hyperlinks
hLink.Address = Replace(hLink.Address, "file:///\\yoda\EWI", "r:/")
hLink.Address = Replace(hLink.Address, "file:///\\fritz\EK", "o:/")
Next hLink
Next wSheet
MsgBox "Ende"
End Sub