Code Snippet "VBA Excel"

Alle externen Bezüge in einer Arbeitsmappe durch fixe Werte ersetzen

Sub AlleVerknuepfungenLoeschen()
'
' AlleVerknuepfungenLoeschen Makro
' Makro am 24.01.2006 von Silvia Rothen aufgezeichnet
  
  If MsgBox("Wollen Sie alle Verknüpfungen dieser Arbeitsmappe löschen?", vbOKCancel) = vbOK Then
    aLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
    
    For intCounter = 1 To UBound(aLinks)
      ActiveWorkbook.BreakLink _
          Name:=aLinks(intCounter), _
          Type:=xlLinkTypeExcelLinks
    Next
    MsgBox ("Alle Verknüpfungen gelöscht")
  End If
End Sub