textbox numeric prüfen aber auch 0,00

Forumthread: textbox numeric prüfen aber auch 0,00
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: textbox numeric prüfen aber auch 0,00

08.02.2008 14:35:19

achim

hallo excel freunde
wer kann das erweitern?
weitere bedingung: wenn der eintrag in der textbox(T117) kleiner als 0,00 dann soll auch die msgbox darauf hinweisen


Private Sub T117_exit _
(ByVal cancel As MSForms.ReturnBoolean)
If Len(T117.Text) = 0 Then Exit Sub
If Not IsNumeric(T117.Text) Then
MsgBox "Bitte einen numerischen Wert eingeben!"
cancel = True
End If
End Sub

danke achim h.

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: textbox numeric prüfen aber auch 0,00

08.02.2008 14:49:00

Josef
danke sepp, ist besser als das was ich habe

08.02.2008 15:00:00

achim
AW: textbox numeric prüfen aber auch 0,00

08.02.2008 19:37:00

ransi
AW: textbox numeric prüfen aber auch 0,00

08.02.2008 19:45:53

Josef

AW: textbox numeric prüfen aber auch 0,00

08.02.2008 14:49:00

Josef

Hallo Achim,
warum nicht nur die Eingaben zulassen die du willst?
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
    Case 44, 48 To 57
    Case Else
        KeyAscii = 0
End Select
End Sub

Gruß Sepp

danke sepp, ist besser als das was ich habe

08.02.2008 15:00:00

achim

danke
gruss
achim h.

AW: textbox numeric prüfen aber auch 0,00

08.02.2008 19:37:00

ransi

HAllo Sepp
Der Code hat mich mal gaaaanz bös ins straucheln gebracht.
Um solch eine Eingabe:
123,456,,,34
zu vermeiden habe ich damals keine Lösung auf Basis des Codes gefunden.
ransi

AW: textbox numeric prüfen aber auch 0,00

08.02.2008 19:45:53

Josef

Hallo Ransi,
das ist doch kein Problem.
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
    Case 44
        'Komma nur einmal
        If InStr(1, TextBox1, ",") > 0 Then KeyAscii = 0
    Case 45
        'Minuzeichen nur an erster Stelle
        If Len(TextBox1) > 0 Then KeyAscii = 0
    Case 48 To 57
    Case Else
        KeyAscii = 0
End Select
End Sub

Gruß Sepp