Schleife?
18.02.2003 16:01:09
Matthias
Sub VerknüpfungEntfernen()
'
' VerknüpfungEntfernen Makro
' Externe Verknüpfungen entfernen
'
'Variablen dimensionieren
Dim zelle As Range
'Alle Zellen nach den Zeichen "=" und "["durchsuchen
For Each zelle In Worksheets(1).UsedRange
If Left(zelle.Formula, 1) = "=" And InStr(zelle.Formula, "[") > 1 Then
zelle.Value = zelle.Value
End If
Next zelle
End Sub