Hallo zusammen,
hab hier wieder einmal ein Formelproblem 
Habe eine Variable mit der ich rechnen möchte, doch der Debugger springt anscheinend wegen dem Format an.
Die Variablen sind als Single definiert:
Dim DataAusschuss As Single, DataLos As Single
…
DataLos = Range(„o2“).Value 'Ergebnis hier 127,5
DataAusschuss = Range(„Q2“).Value 'Ergebnis hier 5
…
With Range(„j2:j“ & letzteZ)
.Formula = „=if(f2=“„X“",i2*g2,i2*g2/100*" & DataLos & „*(100+“ & DataAusschuss & „)/100)“ 'hier springt der Debugger an
.Value = .Value
.NumberFormat = „#,##0.00“
End With
…
Als Fehler kommt dann Laufzeitfehler 1004.
Es liegt wohl daran, das 127 , 5 und nicht 127 . 5 in der Variablen steht.
Weiß jemand wie ich das korrekt umwandle?
MfG
Die Variablen sind als Single definiert:
.Formula = „=if(f2=“„X“",i2*g2,i2*g2/100*" & DataLos &
„*(100+“ & DataAusschuss & „)/100)“ 'hier springt der
Debugger an
Als Fehler kommt dann Laufzeitfehler 1004.
Es liegt wohl daran, das 127 , 5 und nicht 127 . 5 in der
Variablen steht.
Weiß jemand wie ich das korrekt umwandle?
Hallo Brille,
.Formula = „=if(f2=“„X“",i2*g2,i2*g2/100*" & Replace(DataLos, „,“, „.“) & _
„*(100+“ & DataAusschuss & „)/100)“
Gruß
Reinhard
Val(DataLos) geht auch, o.w.T.
Moin MfG!
Hier habe ich einen Formalen Fehler entdeckt:
With Range(„j2:j“ & letzteZ)
Es muss heißen:
With Range(„j2:j“) & letzteZ
Den Rest durchschaue ich nicht so recht aber vielleicht hilft das schon weiter?
Tschüs
Frank
Hier habe ich einen Formalen Fehler entdeckt:
With Range(„j2:j“ & letzteZ)
Es muss heißen:
With Range(„j2:j“) & letzteZ
Hallo Frank,
du liegst leider falsch, so wie es war ist es schon richtig.
Gruß
Reinhard