mit folgendem (hier im Archiv gefundenem u. genialem) Code wird eine Sicherungskopie erstellt.
In meiner Datei befinden sich Hyperlinks zu Internetadressen(1) u. zu anderen Dateien(2) auf dem Rechner.
Beide Varianten werden nicht per Formel '=HYPERLINK() erzeugt.
Bei der Sicherung werden nun die Hyperlinks(2) in der Originaldatei "zerschossen", während sie in der Sicherungskopie weiterhin korrekt funktionieren.
Was mache ich falsch und wie ist ggf. der u.g. Code anzupassen ?
MfG
Dirk C.
Option Explicit 'in DieseArbeitsmappe
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call Application.OnTime(Now, "SaveCopy")
End Sub
Option Explicit 'in ein Modul
Public Sub SaveCopy()
Const FOLDER_PATH As String = "D:\zw\"
Dim strFilename As String
With ThisWorkbook
strFilename = Left$(.Name, InStrRev(.Name, ".") - 1)
strFilename = strFilename & Format(Now, "--yy-mm-dd_hh-nn") & Mid$(.Name, InStrRev(. _
Name, "."))
Call .SaveCopyAs(FOLDER_PATH & strFilename)
End With
End Sub