Verknüpfungen
04.02.2005 17:14:05
Alfred
Habe eine Arbeitsmappe mit mehreren Tabellen die mit einem Tabellenblatt aus einer anderen Arbeitsmappe verknüpft ist. Die Daten aus der zweiten Mappe ändern sich öffters und wenn ich eine ältere gespeicherte Arbeitsmappe öffne, kann es durch Unachtsamkeit passieren, das die Verknüpfung aktuallisiert und gespeichert wird. Um dies zu vermeiden möchte ich sämtliche Verküpfungen in allen Tabellenblätter gelöscht aber die Daten in den Zellen verbleiben. Für ein Blatt habe ich schon etwas gefunden.
Sub ExterneVerknüpfungen_entfernen()
Dim R As Range
For Each R In Worksheets(1).UsedRange
If Left(R.Formula, 1) = "=" And InStr(R.Formula, "[") > 1 Then
R.Value = R.Value
End If
Next R
End Sub
Aber wie funktioniert das bei 10 Tabellen?
Danke im voraus
Alfred