VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Warnung bei Erreichung eines Minuswertes in UserForm

Home Zurück Vor

Download der Beispiel-Arbeitsmappe

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

Datum + Uhrzeit aus Textbox richtig in Zelle

Textbox als Variable ansprechen?

Absatzzeichen in Textbox und Listbox verhindern

UserForm TextBox mit ComboBox Datum vergleichen

teilstring aus textbox in andere Textbox

Textbox Prüfung

Userform nicht gleich in TextBox aber wie?

xlDialogInsertHyperlink.show

Textbox Multiline

Abstand von Textbox bis zum unter. Rand ermitteln

Arbeitmappen über Dialogfeld zusammen fassen

Daten aus Listbox in Textbox einlesen und zurück i

TextBox auf Tabellenblatt

Textboxen mit Klassenmodul ansprechen

Combobox, CheckBox, TextBox Formatierung

Grösse Textbox vom Seitenrand abhängig machen

TextBox - nur Datum zulassen!

Tabelle in Textbox anzeigen lassen

niedrigster Wert aus Spalte in Textbox anzeigen

Text mit Format in Textbox übertragen

Textlänge bei Eingabe in Textbox begrenzen

Wenn man Textbox anklickt, Info

Einstellung TextBox

Range in Textbox

Multiline Textbox

VBA Form Textbox

Frage zu TextBoxen auf eine UF

mit textbox wert suchen zeile in farbe

Spinbutton in UF und Textbox

Speichern unter Dialog in Word aufrufen inkl. Pfad

Multiline Textbox

Kann ich ein Array auch mit einer Textbox füllen

Wie setzt man denn ein " Zeichen in eine Textbox

Textbox fest positionieren in excelsheet?

Dateityp im "Speichern unter"-Dialog vorgeben

userform>Textbox>Format

Makro stoppen, wenn Excel-Dialog?

laufende Aktualisierung in Textbox

Wie mit Textboxen rechnen?

Textbox Font.Size abhängig machen von Textlänge

xlDialogOpen anpassen

Del in TextBox verhindern

Textboxen umbenennen

Klick in definierten Rangebereich startet Dialog

Begrenzung Text in Textboxen