Gruppe
Link
Bereich
Extern
Thema
Alle externen Links löschen
Problem
Wie kann ich über VBA alle externen Links eines Arbeitsblattes löschen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub LinkLoeschen()
Dim rng As Range
For Each rng In Worksheets(2).UsedRange.Cells
If InStr(rng.Formula, "[") > 0 And _
InStr(rng.Formula, "]") > 0 Then
rng.ClearContents
End If
Next rng
End Sub