Hallo Knochenmark,
nachfolgender Code ersetzt Dir alle Hyperlinks der Datei gegen den Pfad und den neuen Dateinamen.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Sub Hyperlinziel_tauschen()
Dim strNeuerHyperlink As String
Dim hypZelle As Hyperlink
Dim intSheets As Worksheet
strNeuerHyperlink = "C:\Eigene Dateien\Deine Datei.xlsx"
For Each intSheets In Sheets
For Each hypZelle In intSheets.Hyperlinks
hypZelle.Address = strNeuerHyperlink
Next
Next
End SubIn der Zeile
strNeuerHyperlink = "C:\Eigene Dateien\Deine Datei.xlsx"musst Du den Pfad und den Dateinamen anpassen.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf
meiner HP in der
Rubrik Anleitungen und dort dann in der
Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
Bei Fragen melde Dich.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]
