Sub
Formeln_deaktivieren()
Dim
rng
As
Range, c
As
Range
Dim
Tx(1)
Set
rng = Range(
"C1:C12"
)
For
Each
c
In
rng
Tx(0) = c.Text
Tx(1) =
""
""
& c.Formula &
""
""
Ty = Join(Tx,
","
)
c.Formula =
"={"
& Ty &
"}"
Next
c
End
Sub
Sub
aktiveren()
Dim
rng
As
Range, c
As
Range
Dim
Tx(1)
Set
rng = Range(
"C1:C12"
)
For
Each
c
In
rng
c = Replace(Replace(Split(c.Formula,
","
)(1),
"}"
,
""
), Chr(34),
""
)
Next
c
End
Sub