Gruppe
Link
Bereich
Extern
Thema
Alle Links zu einer bestimmten Arbeitsmappe löschen
Problem
Wie kann ich in einem Zug alle Links zu einer bestimmten Arbeitsmappe in einem Arbeitsblatt entfernen?
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(LCase(rng.Formula), "[test.xls]") > 0 Then
rng.ClearContents
End If
Next rng
End Sub