Addieren funktioniert nicht
14.10.2004 10:10:55
Rolf
folgendes Problem: ich habe drei Textboxen (aus Steuerelement-Toolbox) in denen ich Zahlen eingebe.
Durch betätigen der Schaltfläche werden die Zahlen in Zelle A1, A2, A3 übertragen.
In Zelle A4 werden die Zahlen addiert
Ist z.B in Textbox 1 keine Zahl eingetragen (auch keine 0) bleibt natürlich beim auslösen der Schaltfläche die Zelle A1 leer.
Jetzt funktioniert das addieren nicht mehr in Zelle A4 erscheint #Wert!
Wo liegt der Fehler?
Private Sub CommandButton1_Click()
'Wert aus TextBox1,2,3 wird in Zelle A1,A2,A3 übertragen
Sheets("Tabelle1").Range("A1") = TextBox1
Sheets("Tabelle1").Range("A2") = TextBox2
Sheets("Tabelle1").Range("A3") = TextBox3
End Sub
Vielen Dank im voraus
Rolf