Formelergebnis über VBA fehlerhaft
Jan
bin am Ende meiner VBA Kenntnisse und bitte um eure Hilfe.
Ich habe eine Spalte mit Preisen (Spalte J) und eine Spalte in die ich eine Formel per VBA einsetze (Spalte K ).
Die Formel die ich einsetze sollte folgendermaßen funktionieren =WENN(J11>="149.00";":::0.00";":::8.90")
In J11 steht ein beliebiger Preis, in K11 wird die Formel eingefügt. Also
J2-Preis & K2-Formel
J3-Preis & K3-Formel -das geht bis ca.
J16000-Preis & K16000-Formel -die Länge der Tabelle ist immer unterschiedlich-
Hierfür verwende ich folgendes:
With Worksheets("Tabelle1")
Zei = .Cells(.Rows.Count, 1).End(xlUp).Row
.Cells(1, 11).Value = "Versand"
With .Range(.Cells(2, 11), .Cells(Zei, 11))
.Cells.FormulaR1C1 = "=IF(RC[-1]>=""149.00"","":::0.00"","":::8.90"")"
.Cells.Formula = .Cells.Value
End With
End With
Eigentlich sollte nun alles über einem Wert von 149.00 das Ergebnis :::0.00 bringen
und alles unter dem Wert 149.00 das Ergebnis :::8.90
Was allerdings dabei raus kommt sieht so aus:
__J_______K____
523.70 :::0.00
3356.40 :::0.00
95.60 :::0.00
583.85 :::0.00
12.50 :::8.90
12.30 :::8.90
9.75 :::0.00
89.35 :::0.00
11.90 :::8.90
130.40 :::8.90
130.40 :::8.90
149.80 :::0.00
24.80 :::0.00
248.90 :::0.00
1279.50 :::8.90
Die Zahlenwerte haben Punkttrennung, mit Komma geht es aber auch nicht besser.
Würde mich sehr freuen wenn hier einer eine Idee hat.
Gruß
Jan