Hallo!
Ich würde gerne eine Formel mit einer Konstanten in mehrere Zelle schreiben.
Die Konstante kann eine Dezimalzahl sein. Hier mein Code
Dim Preis 'As Double
Dim Gewicht ' As Double
Dim i As Byte
'
Preis = 1245.5
Gewicht = 15.45
' Spalte A == Anzahl
For i = 1 To 10
With ActiveSheet
.Cells(i, 2).FormulaR1C1 = "=RC[-1]*" & Preis
.Cells(i, 3).FormulaR1C1 = "=RC[-2]*" & Gewicht
End With
Next i
Kann mir jemand sagen, wieso das nicht funktioniert wenn meine Konstante eine Dezimalzahl ist? Bei einer ganzen Zahl geht es.
hab schon CStr(Preis) und CStr(Gewicht) probiert - geht nicht.
Verschiedene Variablendeklarationen (Currency, Long usw) haben auch nicht funktioniert - wo liegt mein Denkfehler?
Vielen Dank für die Hilfe!
Mario