|
versuche mal das:
Sub Formeln_deaktivieren()
Dim rng As Range, c As Range
Dim Tx(1)
Set rng = Range("C1:C12")
For Each c In rng
'OK >>>rng.Formula = "={""qwe"",""123""}"
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
'Replace(Replace(Split(Range("C1").Formula, ",")(1), "}", ""), Chr(34), "")
c = Replace(Replace(Split(c.Formula, ",")(1), "}", ""), Chr(34), "")
Next c
End Sub
|