Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Link und Extern