Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

MsgBox wenn Textbox1 kleiner Textbox2 | Herbers Excel-Forum


Betrifft: MsgBox wenn Textbox1 kleiner Textbox2 von: Florian
Geschrieben am: 30.01.2012 13:14:06

Hallo ihr Auskenner ;)

Ich habe eine Userform erstellt (UserForm1) in der es 2 Textfelder gibt.

Das eine Textfeld (TextBox1) zeig den Hinweis zur Eingabe auf. Es wird ein Mindestwert ermittelt, der vom Anwender in Textfeld 2 (TextBox2) mindestens eingegeben werden soll.

Nun möchte ich gern, dass eine Fehlermeldung (MsgBox "Achtung, Fehler in Eingabe!") erscheint, sobald man in TextBox2 einen Wert eingetippt hat, der kleiner ist, als der in TextBox1.

Mit diesem Versuchen bin ich leider gescheitert:

If TextBox2.Value < TextBox1.Value Then
MsgBox "Achtung, Fehler in Eingabe!"
End If

oder:

If TextBox2 < TextBox1 Then
Call Fehlermeldung
End If



Kann mit bitte jemand weiterhelfen?

  

Betrifft: AW: MsgBox wenn Textbox1 kleiner Textbox2 von: hary
Geschrieben am: 30.01.2012 14:06:11

hallo Florian
Textboxe geben Text wieder.
versuch mal.

If CDbl(TextBox2) < CdBl(TextBox1) Then
MsgBox "Achtung, Fehler in Eingabe!"
End If

gruss hary


  

Betrifft: AW: MsgBox wenn Textbox1 kleiner Textbox2 von: Florian
Geschrieben am: 30.01.2012 14:14:37

Danke Hary, aber leider kommt so immer die MsgBox, egal ob Textbox2 kleiner oder größer Textbox1!

Wofür steht eigentlich CDbl bzw. was bewirkt das ganze?


  

Betrifft: AW: MsgBox wenn Textbox1 kleiner Textbox2 von: hary
Geschrieben am: 30.01.2012 17:15:48

hallo Florian
CDbl wandelt Text in eine Zahl um. Welches Ausloeseereigniss nimmst Du fuer die Textbox2?
versuch mal so.

Private Sub TextBox2_AfterUpdate()
   If CDbl(TextBox2) < CDbl(TextBox1) Then
     MsgBox "Achtung, Fehler in Eingabe!"
   End If
End Sub

gruss hary


  

Betrifft: AW: MsgBox wenn Textbox1 kleiner Textbox2 von: Reinhard
Geschrieben am: 30.01.2012 17:43:11

Hallo Florian,

bitte, bevor du wiedermal anfragst/nachfragst, stelle den Cursor auf z.B. CDbl und drücke F1 oder suche in der Hilfe nach CDbl.
Wenn du dann etwas nicht verstanden kannste danach fragen. Aber vorheriges F1 wird vorausgesetzt.

Lade mal eine gekürzte Version deiner Mappe hier hoch.

Gruß
Reinhard


Beiträge aus den Excel-Beispielen zum Thema "MsgBox wenn Textbox1 kleiner Textbox2"