Angenommen Sie haben eine recht umfangreiche Tabelle
mit mehreren Verknüpfungen zu externen Dateien.
Nun wollen Sie diese Verknüpfungen löschen
und durch deren Werte ersetzen.
So geht's mittels VBA:
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
|
