hier ein Vorschlag für Dein Problem von gestern :
Sub Verknüpfungen_ersetzen()
Dim Zelle As Object, ersteAdresse$
Dim suchstr As String
On Error Resume Next
suchstr = InputBox("Suchstring eingeben", , "Dateiname")
'erste Verknüpfung finden
Set Zelle = Cells.Find(What:=suchstr, LookIn:=xlFormulas)
If Not Zelle Is Nothing Then
ersteAdresse = Zelle.Address
' MsgBox "Verknüpfung in: " & ersteAdresse & _
' Chr(10) & Chr(10) & "Verknüpfung: " & _
' Chr(10) & Range(Zelle.Address).Formula
Zelle.Value = Zelle.Value
'weitere Verknüpfungen finden
Do
Set Zelle = Cells.FindNext(Zelle)
If Zelle.Address = ersteAdresse Then Exit Do
Zelle.Value = Zelle.Value
Loop While Not Zelle Is Nothing And Zelle.Address <> ersteAdresse
End If
End Sub
Damit kannst Du die Bezüge auf eine bestimmte Tabelle in Werte umsetzen.
Ist es das, was Du brauchst?
Gruß Joachim