Probleem met waarde

[Mark_68]

Ik heb het volgende probleem,

Op het werkblad BerekeningZam word de waarde in cel E23 overgenomen van een textbox uit een ander userform.
In cel E20 staat de volgende formule: =ALS(E23>1,5;E25*E19%;0). Maar nu is het probleem dat hij de formule ook al uitvoerd bij een waarde van 1,5, heb al geprobeerd om in de formule de 1,5 naar 1,6 te wijzigen maar zonder succes.
Wat zou hier de oorzaak van kunnen zijn?

 

[edmoor]

Plaats een voorbeeld documentje.

 

[Mark_68]

Beginnen bij userform product, daarna op zam dan bij kwaliteit zoeken naar 3121 en in het lege vak 12500 daarna op vullen

 

[edmoor]

De waarde in cel F23 wordt door de formule als tekst gezien en niet als getal.

 

[Mark_68]

Maar als ik de celeigenschap op getal zet veranderd er niets

 

[edmoor]

Klopt.
Dat komt omdat de VBA code nog steeds tekst invult in plaats van een getal.
Maak er dit van:

Private Sub txtMgperc_Change()
    Sheets("BerekeningZam").Range("F23").Value = CDbl(txtMgperc.Value)
End Sub

Die CDbl converteert de tekst in de Textbox naar een getal.

 

[snb]

=(1*(E23)>1,5)*E25*E19%

 

[Mark_68]

Dank je wel, weer wat geleerd, dus om een getal weg te schrijven als getal CDbl gebruiken?

 

[edmoor]

Inderdaad.
Of wat snb in #7 liet zien.

 

[Mark_68]

Beide bedankt voor de hulp