versuchs mal damit. Den Formeltext solltest du aber noch austauschen.
Sub
ersetzen().
Dim
ws
As
Worksheet, rRange
As
Range, rTemp
As
Range, cell
As
Range
Application.Calculation = xlManual
For
Each
ws
In
Worksheets
Set
rRange = ws.UsedRange.SpecialCells(xlCellTypeFormulas)
For
Each
cell
In
rRange
If
cell.Formula =
"ff"
Then
If
rTemp.Count = 1
Then
Set
rTemp = cell
Else
Set
rTemp = Union(rTemp, cell)
End
If
End
If
Next
rTemp.Value = rTemp.Value
Set
rRange =
Nothing
: rTemp =
Nothing
:
Set
cell =
Nothing
Next
ws
Application.Calculation = xlAutomatic
Set
ws =
Nothing
End
Sub
gruß