VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Warnung bei Erreichung eines Minuswertes in UserForm

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox