108004
Excel bietet Standardmäßig keine Funktion, um externe Verknüpfungen auf einem Excel-Tabellenblatt zu entfernen. Befinden sich auf einem großen Excel-Sheet viele externe Verknüfpungen, dann kann das manuelle entfernen zum Geduldsspiel werden.
Diese Makro entfernt automatisch alle externen Verknüpfungen auf dem Blatt und ersetzt diese durch den Inhalt der Zelle. Somit ist gewährleistet, dass keine Informationen verloren gehen.
Sub 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