externe Verknüpfungen

Option Explicit
Sub AufAllenBlaetternFormelMitExternemVerweisDurchWertErsetzen()

  Dim ws As Worksheet, b_Ersetzen As Boolean

 ->für alle Arbeitsblätter der aktiven Mappe
  For Each ws In ActiveWorkbook.Worksheets
      
    ws.Activate
    
    If FORMEL_ExterneVerweiseAlleEinerSeiteMarkieren Then
     ->Zelle mit Verweisen kopieren
      Selection.Copy
     ->Inhalte einfügen -> Werte
      Selection.PasteSpecial _
                Paste:=xlPasteValues, _
                Operation:=xlNone, _
                SkipBlanks:=False, _
                Transpose:=False
      Application.CutCopyMode = False
    End If
  Next

AUFRAEUMEN:
  Set ws = Nothing
End Sub
Private Function FORMEL_ExterneVerweiseAlleEinerSeiteMarkieren() As Boolean
   'alle Formeln des Blattes werden markiert,
   'die eine externen Verweis einhalten
'**********************************************************
 Dim r As Range, Zelle As Range, l_cnt As Long
 Dim pos1 As Long, pos2 As Long, pos3 As Long
->Formeln mit externen Verweisen suchen
 l_cnt = 0->Zaehler initialisieren
 For Each Zelle In ActiveSheet.UsedRange
   If Left(Zelle.Formula, 1) = = Then
     pos1 = InStr(1, Zelle.Formula, [)
     If (pos1 > 0) Then
       pos2 = InStr(1, Zelle.Formula, ])
       If (pos2 > 0) And (pos2 > pos1) Then
         pos1 = InStr(1, Zelle.Formula, !)
         If (pos1 > 0) And (pos1 > pos2) Then
           'Jo, ist eine Zelle mit externem Verweis
           'Muster ...[....]....!.....
           l_cnt = l_cnt + 1
           If l_cnt = 1 Then
             Set r = Zelle.Cells
           Else
             Set r = Application.Union(r, Zelle.Cells)
           End If
         End If
       End If
     End If
   End If
 Next
->gefundene Zellen markieren
 If l_cnt > 0 Then
   r.Select
   Set r = Nothing
   FORMEL_ExterneVerweiseAlleEinerSeiteMarkieren = True
 Else
   FORMEL_ExterneVerweiseAlleEinerSeiteMarkieren = False
 End If
End Function

Dim Zelle as Range
...
For Each Zelle In Selection
...
Zelle.Value = Zelle.Value
...
next
...
Set Zelle = Nothing