Anzeige
Archiv - Navigation
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

textbox numeric prüfen aber auch 0,00

textbox numeric prüfen aber auch 0,00
08.02.2008 13: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
Anzeige
AW: textbox numeric prüfen aber auch 0,00
08.02.2008 13: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



Anzeige
danke sepp, ist besser als das was ich habe
08.02.2008 14:00:00
achim
danke
gruss
achim h.

AW: textbox numeric prüfen aber auch 0,00
08.02.2008 18: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 18: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



Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige