VBA Excel, . und , in Formel

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,

hab hier wieder einmal ein Formelproblem :frowning:

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

#2

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

#3

Val(DataLos) geht auch, o.w.T.

#4

Klappt, danke! owT
.

#5

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

#6

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