Inhalt Textboxes + Zellen addieren
06.08.2002 09:32:13
Marcus
Ich habe ein UserForm mit mehreren Textboxes (hier ein Beispiel mit 3) .
Wenn die Tbs Werte enthalten sollen sie zu den Inhalten der Zellen addiert werden.
Es geht aber nicht mehr, sobald alle Zellen Inhalt haben und ich nicht alle Tbs mit Inhalt fülle...
Also gibt es offenbar ein Problem bei der Addition von Zahl und "nichts"...
Hier das Beispiel:
Private Sub CommandButton1_Click()
If TextBox1.Value <> "" Then Range("a1") = TextBox1.Value + Range("a1")
If TextBox2.Value <> "" Then Range("a2") = TextBox2.Value + Range("a2")
If TextBox1.Value <> "" Then Range("a3") = TextBox3.Value + Range("a3")
End Sub
Wer kann mir helfen??
Danke vorab!