|
Hallo liebes forum,ich bin blutiger VBA und programmieranfänger und kenne es nicht lange ,jedenfalls zu meinem Problem:
ich habe einen Taschenrechner programmiert und jetzt will ich eine allgemeine Funktion schreiben,die mir egal welchen commandbutton ich drücke eine fehlermeldung in form einer msgbox zurückliefert wenn die eingabe in die textbox ein string is.Ich habe es schon einige male und auf unterschiedliche weisen versucht(Isnumeric,etc.) versucht,aber das problem is ,wenn ich auf den button klicke kommt immer ein laufzeitfehler.
Ich denke mein Problem is die verbindung zwischen function und der sub des commandbutton
so sieht meine Funktion aus
Public Function noletter(str22 As String, str33 As String)
str22 = TextBox1.Text
str33 = TextBox2.Text
If str22 = TextBox1.Text Or str33 = TextBox2.Text Then MsgBox (" Geben sie eine zahl ein!")
hier ein commandbutton
Private Sub CommandButton1_Click()
Dim Zahl1 As Double
Dim Zahl2 As Double
Dim Ergebnis As Double
Call noletter
Zahl1 = TextBox1.Text
Zahl2 = TextBox2.Text
Ergebnis = Zahl1 + Zahl2
TextBox3.Text = Ergebnis
End Sub
|