Werte statt Calculate
05.12.2003 18:04:51
Lorenz K.
Wie ist es möglich statt Formel gleich das Ergebnis einzusetzen?
If Target.Column = 14 Then
Range(Cells(6, 15), Cells(6, 15)).Copy Cells(Target.Row, 15)
For Each Zelle In BereichV8
If Zelle.HasFormula Then Zelle.Calculate
Next
End If
Was lustiges gefällig? so Hab ich`s probiert:
For Each Zelle In BereichV8
If Zelle.Value >0 Then Zelle.Value = Zelle.Value
PS:
Calculate ist notwendig, da xlCalculation=Manuell
Gruß Lorenz K.