Textboxeingaben
25.03.2006 11:55:37
Erich
in einer userform sollen über textboxen zahleneingaben gemacht werden, die
dann mittels OK-button in eine tabelle übertragen werden bspw. textbox1 in A1
wobei range("A1").value=15. Dabei soll folgendes passieren:
1. ist der in der textbox eingegebene wert kleiner (also bspw. 14) oder
gleich (15) dem wert der in die zu übertragende zelle, soll darauf
hingewiesen werden und es darf erst weitergearbeitet werden, wenn das nicht
mehr so ist oder die textbox leer bleibt
2. ist in der textbox kein wert eingegeben also textbox1.value="" dann soll
der wert in der zu übertragende zelle nicht verändert werden, also A1 bleibt
15.
Mein (erfolgloser) Ansatz zu 1:
Private Sub TextBox1_Change()
alterwert = Range("A1").Value
Do While TextBox1.Value <= alterwert
MsgBox "aktueller wert gleich oder kleiner alter wert!", vbOKOnly
If TextBox1.Value > alterwert Then
Exit Do
Loop
End Sub
Mein Ansatz zu 2:
Private Sub CommandButton1_Click()
If TextBox1 = "" Then
Range("A1").Value = Range("A1").Value
Else
Range("A1").Value = TextBox1.Value
End If
Unload Me
End Sub
Was stimmt bei 1 nicht? Kann man 2 noch irgendwie vereinfachen/verbessern?
Schonmal vielen Dank für eure Hilfe