mit folg. code aus diesem forumkann man in allen zellen nach sverweis suchen und die formel durch den wert ersetzen.
wie muss ich xx abändern, dass dies nur in den zellen vorgenommen wird, wo sich gerade der zellzeiger
freue mich auf eine antwort klaus.
Sub SVerweisInWerte()
Dim rngF As Range, rngC As Range
BildAus
Application.EnableEvents = False
On Error Resume Next
Set rngF = Cells.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0
If Not rngF Is Nothing Then
For Each rngC In Cells.SpecialCells(xlCellTypeFormulas)
If InStr(LCase(rngC.Formula), "vlookup") > 0 Then rngC = rngC.Value
Next
End If
Application.EnableEvents = True
BildAn
End Sub