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
|
