Nachfolgender Code fügt die Verknüpfungen aus zwei Tabellen als Wert ein. Funzt soweit auch. Geht das auch kürzer?
Vielen Dank für eure Hilfe.
Grüsse Benedikt
'Verknüpfung als Wert einfügen
Dim rngC As Range
Application.ScreenUpdating = False
For Each rngC In Cells.SpecialCells(xlCellTypeFormulas)
If InStr(rngC.Formula, "HT!") > 0 Then
rngC.Copy
rngC.PasteSpecial xlPasteValues
End If
Next
Dim rngB As Range
Application.ScreenUpdating = False
For Each rngB In Cells.SpecialCells(xlCellTypeFormulas)
If InStr(rngB.Formula, "BC!") > 0 Then
rngB.Copy
rngB.PasteSpecial xlPasteValues
End If
Next