Gruppe
Dialog
Problem
In einer UserForm lasse ich in einer TextBox Werte - auch Minuswerte - addieren. Wie kann ich eine Warnmeldung ausgeben lassen, wenn in dieser TextBox ein Minuswert erreicht wird?
ClassModule: frmAddieren
Private Sub cmdAddieren_Click()
txtSumme.Value = CDbl(txtSumme.Text) + CDbl(txtEingabe.Text)
If CDbl(txtSumme.Text) < 0 Then
Beep
MsgBox "Summenwerte unter 0 nicht erlaubt!"
txtSumme.Value = 0
End If
txtEingabe.Value = ""
txtEingabe.SetFocus
End Sub
Private Sub cmdWeiter_Click()
Unload Me
End Sub
Private Sub cmdZurueck_Click()
txtSumme.Value = 0
End Sub
StandardModule: basMain
Sub CallForm()
frmAddieren.Show
End Sub