|
Hallo und viele dank für die antwort,
den quellcode versteh ich ehrlich gesagt so gut wie gar nicht,da mir zu einigen sachen nicht bekannt ist was sie bedeuten.
ich bin selber aber einen schritt weiter gekommen.
Public Function noletter(zahl11 As Variant, zahl22 As Variant)
Dim ergebnis1 As Double
zahl11 = TextBox1.Text
zahl22 = TextBox2.Text
If IsNumeric(zahl11) And IsNumeric(zahl22) Then ergebnis1 = CDbl(zahl11) + CDbl(zahl22) Else MsgBox ("Bitte geben sie eine Zahl ein!")
TextBox3.Text = ergebnis1
End Function
Private Sub CommandButton1_Click()
CommandButton1.Caption = "Addition"
Dim zahl11 As Variant
Dim zahl22 As Variant
Dim ergebnis As Double
zahl11 = TextBox1.Text
zahl22 = TextBox2.Text
ergebnis = noletter(zahl11, zahl22)
das sind die function als auch die erste sub.meine frage ist jedoch,wie ich die anderen subs( die -,* und /) berechnen richtig bearbeite
Dim zahl1 As Variant
Dim zahl2 As Variant
Dim ergebnis As Double
zahl1 = TextBox1.Value
zahl2 = TextBox2.Value
If IsNumeric(zahl1) And IsNumeric(zahl2) Then ergebnis = CDbl(zahl1) * CDbl(zahl2) Else MsgBox ("Bitte geben sie eine Zahl ein!")
TextBox3.Value = ergebnis
so geht es auch,ich will aber,dass das in der function berechnet wird und nicht in der sub (will einen rückgabewert aus der function)
|