Problem mit Formeln
05.05.2003 12:56:57
Uwe Borchert
Ich habe dann unten stehendes Macro geschrieben bei dem die Formel ausgelesen wird. Dann schreibe ich die Rundenfunktion dazu und möchte es wieder ins Blatt zurück schreiben.
Leider funktioniert es nicht. Das Macro stoppt bei der Zeile
"Zelle.Formula = "=Runden(" & s & ";2)" und nichts passiert.
Hat vielleicht jemand eine Idee.
Besten Dank schonmal
Uwe Borchert
Sub Rundes()
Dim Zelle As Range
With Application
.Calculation = xlCalculationManual
End With
With ActiveSheet
For Each Zelle In Selection
s = Zelle.Formula
Zelle.Formula = "=Runden(" & s & ";2)"
Next Zelle
End With
With Application
.Calculation = xlCalculationAutomatic
End With
End Sub