relativer Bezug, aber wie?
26.01.2004 16:25:45
TCO99
ich habe ein Makro, was die Verknüpfungen meiner Datei aktualisieren soll. Das macht es auch, sogar sehr gut. Aber das Problem ist nun, dass ich mit den Dateien nicht "umziehen" kann, weil es sich um einen absoluten Bezug handelt.
Hier der Code:
Sub Update ()
Application.ScreenUpdating = False
Workbooks.Open Filename:="C:\Projekt\Datenbank.xls", Password:="12345"
ThisWorkbook.Activate
Workbooks("Datenbank.xls").Close SaveChanges:=False
Application.ScreenUpdating = True
MsgBox "Update der Datenbank erfolgreich durchgeführt!", vbInfo, "Update"
End Sub
Wie muss ich den Code verändern, damit daraus ein relativer Link wird?
Wie ich in Excel, als Formel, einen relativen Link setze, weiß ich, aber mit VBA klappt das nicht. Versucht hatte ich folgendes:
Sub Update ()
Application.ScreenUpdating = False
Workbooks.Open Filename:="Datenbank.xls", Password:="12345"
Aber wie gesagt, das hat, ausser einer Fehlermeldung, nichts gebracht.
Wer weiß Rat?
Vielen Dank im Voraus
Erdogan