Hyperlink funktioniert nicht mehr
12.06.2007 15:55:43
Mark
Ich hab da mal wieder ein kleines Problem mit meinen Excel und VBA Anwendungen. Mit folgendem Makro öffne ich in einer Excel-Mappe eine andere Excel-Mappe ("Quelle.xls") und kopiere das erste Tabellenblatt dieser Mappe in meine aktuell geöffnete Excel-Mappe:
Sub transferBeispiel1()
Dim wb As Workbook
Set wb = ActiveWorkbook
Application.ScreenUpdating = False
Workbooks.Open "file:\\Eigene Dateien\Quelle.xls"
ActiveWorkbook.Sheets(1).Range("A3:Y212").Copy _
Destination:=wb.Sheets("Beispiel1").Range("A3:Y212")
Workbooks("Quelle.xls").Close False
Application.ScreenUpdating = True
Sheets("Beispiel1").Range("C1") = Now
End Sub
Das funktioniert wie geschmiert, allerdings sind in der Liste "Beispiel1" einige Hyperlinks die sich auf Tabellenblätter der Ursprungsdatei ("Quelle.xls") beziehen, die werden dann automatisch auf die neue Mappe umgeschrieben und passen daher nicht mehr.
Hat jemand eine Idee, wie die Hyperlinks ihren ursprünglichen Pfad beibehalten können?
Im Voraus bereits vielen Dank für jede Hilfe!
MfG
Mark
Anzeige