Gruppe
Link
Bereich
Extern
Thema
Alle externen Links löschen und in Werte umwandeln
Problem
Alle externen Links sollen gelöscht und deren Werte übernommen werden.
Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
StandardModule: Modul1
Sub Link2Value()
Dim rng As Range
For Each rng In ActiveSheet.UsedRange.Cells
If rng.HasFormula Then
If InStr(rng.Formula, "\[") Then
rng.Value = rng.Value
End If
End If
Next rng
End Sub