nicht von mir, aber sehr gut:
Sub Daniel_Formeln_abschalten()
Dim rng As Range
Set rng = Range("C1:C12")
rng.Replace "=", "_=", xlPart
End Sub
Sub Daniel_Formeln_anschalten()
Dim rng As Range
Set rng = Range("C1:C12")
rng.Replace "_=", "=", xlPart
rng = rng.Value
End Sub
|