ich habe mir einen kleinen Taschenrechner auf einer UserForm gebastelt. Die Zahlen und Rechzeichen sind hinter commandButtons.
Private Sub CommandButton1_Click()
tbSumme.Value = tbSumme & 1
End Sub
Public wert As Variant
Public wertWas As Variant
Public wertAlles As Variant
Private Sub cbDurch_Click()
wert = tbSumme
tbSumme = ""
wertWas = "/"
End Sub
Private Sub cbMal_Click()
wert = tbSumme
tbSumme = ""
wertWas = "*"
End Sub
Private Sub cbGleich_Click()
wertAlles = Evaluate(tbSumme.Value & wertWas & wert)
tbSumme = wertAlles
End Sub
+ - * funktioniert einwandfrei.
Nur / geht nicht.
4 / 2 ergibt 0,5 ; 6/3 ergibt 0,333333333333E
woran liegt das wohl?
Viele Grüße aus Hamburg
Ray