Hi,
ich habe eine Spalte mit 400 Zeilen, in denen Hyperlinks stehen.
Wie kann ich am einfachsten den Hyperlink-Pfad ändern: ersetzen von "Dokumente" durch ".."?
STRG-H:
[
attachment=18764]
Fehlermeldung:
[
attachment=18765]
Das Blatt ist nicht geschützt.
Hi,
es sind echte Hyperlinks:
Arbeitsblatt mit dem Namen 'Dokumente' |
| G |
4 | VA 4.2.3.1 |
Verwendete Systemkomponenten: [Windows (32-bit) NT 6.01] MS Excel 2013 |
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg |
Hi Chris,
danke, mit Deinem Link habe ich es nun so hinbekommen:
Option Explicit
Sub Versuch()
Dim hyper As Hyperlink, strPath As String
strPath = "Dokumente"
For Each hyper In ActiveSheet.Hyperlinks
If InStr(hyper.Address, strPath) <> 0 Then
hyper.Address = Replace(hyper.Address, strPath, "..")
End If
Next hyper
End Sub
Hi,
nun habe ich ein neues Problem:
Wenn ich die Datei an einen anderen Ort verschiebe, dann stimmen ja die Links nicht mehr, weil die dann relativ sind und nicht absolut.
Wenn ich mit dem Makro den Pfad anstelle der .. eintrage, dann stehen die Links trotzdem wieder relativ drin.
Aus "C:\Temp\Test\Dokument.xlsx" wird "..\Dokument.xlsx".
Wie kann ich das verhindern?
edit:
Wenn beim "Speichern unter" im Datei-Speicher-Dialog unten rechts bei "Tools" - "Web-Optionen" - "Dateien" der Haken entfernt wird von "Links beim Speichern aktualisieren", dann bleiben es absolute Pfade.
[
attachment=18779]