UserForm Textbox Abfrage

Guten Morgen,
Ich habe Probleme bei der Abfrage in einer UserForm Textbox.
Bei der Eingabe von Zeichen in die Textbox dürfen nur Zahlen eingesetzt werden.
Um das zu überwachen habe ich dieses Skript:


Private Sub TBVa_Change()
If Not IsNumeric(TBVa.Text) Then
MsgBox "Buchstaben sind nicht zulässig"
UFAusmass.TBVa = ""
End If
End Sub

Sobald das ein Buchstabe eingegeben wird kommt die MsgBox. Das Problem jetzt: Wenn ich bei der MsgBox dann auf OK klicke popt die MsgBox unverzüglich ein zweites mal auf die ich dann nochmal quittieren muss so dass ich dann wieder in die Textbox schreiben kann.
Meine Frage: Gibt es hierzu ein Trick damit die Textbox nur einmal aufgeht und nicht zwei mal hinter einander?
Danke und Gruss
Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
"Change" ist ein bisschen ein kritsches Event, weil es bei jeder Änderung am Element ausgelöst wird, egal wer die Änderung durchführt (Anwender, Code) oder was geändert wird.
Das Change-Event kann sich somit auch selber aufrufen, was meistens nicht gewünscht ist und auch nicht so ohne weiteres unterbunden werden kann.
Die zweite Messagebox bekommst du, weil das leeren der Textbox das Change-Event auslöst und eine leerer Text ("") nicht numerisch ist und von Excel nicht in eine Zahl gewandelt werden kann.
du müsstest hier eine zusätzliche Abfrage einbauen und den Code nur dann ausführen lassen, wenn die Textbox nicht leer ist:


Private Sub TBVa_Change()
if TBVa.Text  "" Then
If Not IsNumeric(TBVa.Text) Then
MsgBox "Buchstaben sind nicht zulässig"
UFAusmass.TBVa = ""
End If
end If
End Sub

grundsätzlich würde ich deinen Ansatz als nicht Anwenderfreundlich einstufen.
Wenn du bspw die ersten Ziffern eingegeben hast und dann zufällig einen Buchstaben tippst, musst du alles nochmal vollständig eingeben.
Ich würde es für sinnvoller halten, so wie von uns gezeigt die Buchstabentasten zu deaktivieren.
Auch die Messagebox ist lässtig, weil sie weggeklickt werden muss, Der Anwender sollte ja wissen, was er hier eingeben darf und was nicht (müsste ja neben dran stehen). Ich würde die Fehleingabe wenn überhaupt mit einem BEEP anstelle der Messagebox quittieren.
Dann weiß der Anwender, dass seine Tastatur nicht kaputt ist.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UserForm Textbox Abfrage

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread