ChangeLink
Ulf
trotz Suche im Netz bin ich nicht so richtig fündig geworden.
Die Situation ist die:
Mehrere Exceldateien werden aus einem Vorlage-Ordner un das jeweilige
Projekt kopiert und dort ausgefüllt und gedruckt.
Die meisten XLS-dateien liegen zusammen in einem Ordner (z.B. "U:\Poj\xyz\")
weiterhin giebt es einen weiteren Unterordner \Berechnung ( "U:\Poj\xyz\Berechnung")
Nun starte ich alle XLSM im Verzeichnis xyz (z.B Eingabe.xlsm und Verwaltung.xlsm)
Zwischen diesen gibt es Verknüfungen, die auch funktionieren wie sie sollen.
='Eingabe.xlsm'!P_name
Dann starte ich die "U:\Poj\xyz\Berechnung\Berech.xlsm".
erstelle ich hier einen Bezug auf 'Eingabe.xlsm'!FH in der Datei aus dem
übergeordneten Ordner sieht das auch erst mal so aus:
='Eingabe.xlsm'!P_name
Nun speichere ich alles und kopiere es nach "U:\Poj\abc\" b.z.w "U:\Poj\abc\Berechnung".
Starte ich jetzt alle erneut sieht der Bezug so aus:
='U:\Poj\xyz\Eingabe.xlsm'!P_name
Mittels Daten - Verknüpfungen Bearbeiten kann ich nun die Verknüpfung von xyz
auf abc ändern. Das nervt aber.
Die Datei im Unterverzeichnis "Berechnung" starte ich aus yxz bzw. abc heraus mit
Workbooks.Open FileName:="Berechnung\Berech.xlsm", UpdateLinks:=0
Um die Verknüfungen mit VBA zu aktualisieren mach ich folgendes:
Dim TWP As String
TWP = ThisWorkbook.Path
Workbooks.Open FileName:="Berechnung\Berech.xlsm", UpdateLinks:=0
ActiveWorkbook.ChangeLink Name:="Eingabe.xlsm", NewName:=TWP + "\" + "Eingabe.xlsm"
Nun habe ich die Verknüpfung mit voller Pfadangabe aber die angezeigten Werte sind
Null oder irgendwie anders falsch.
Nun endlich meine Frage, wie komme ich zu Verknüpfungen zwischen Dateien zwischen
über/ untergeordneten Verzeichnissen?
Gruß
Ulf