Verknüpfungen ändern/löschen
04.01.2014 02:20:24
Benno
Ich habe in den letzten Jahren fleissig mitgelesen und konnte von den Antworten der Community viel profitieren. Nun stehe ich aber wie der Esel am Berg.
Ich habe eine Arbeitsmappe, welche parallel von mehreren Personen Kopien ausgefüllt werden. Die einzelnen Tabellenblätter werden dann in eine gemeinsame Datei kopiert und ausgewertet.
Die Tabellenblätter enthalten Zellbereiche, welche mit Namen versehen sind. Diese werden für Formeln und Makros verwendet. Beim zusammenführen sollen diese Bereiche ebenfalls übernommen werden. Ich mache das bislang folgendermassen:
Path = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
Lks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(Lks) Then
Ans = MsgBox("This Workbook contains external references." & Chr(13) & "Do you want to change them to _
the current Workbook?", vbExclamation + vbYesNo + vbDefaultButton2, "WARNING...")
If Ans = vbYes Then
For i = 1 To UBound(Lks)
ActiveWorkbook.ChangeLink Lks(i), _
Path, Type:=xlExcelLinks
Next
End If
End If
Mein Problem ist, dass dies auch externe Links in Formeln ändert. Dies ist von den usern aber nicht erwünscht.
Gibt es eine Möglichkeit, die externen Links zu ändern ohne die Formeln zu verändern?
Mit: If InStr(1, zell.Formula, "[") Then wären die Formeln schnell erkannt. Was ist aber mit den benannten Bereichen? Hat jemand eine Idee?
Vielen Dank im Voraus!
Benno