Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Warnung bei Erreichung eines Minuswertes in UserForm

Gruppe

TextBox

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