Gruppe
Dialog
Bereich
TextBox
Thema
Warnung bei Erreichung eines Minuswertes in UserForm
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?
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
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