Abfangen von nicht numerischen Eingabe in Textbox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox MsgBox
Bild

Betrifft: Abfangen von nicht numerischen Eingabe in Textbox
von: Nina
Geschrieben am: 07.11.2003 13:44:58

Hallo liebe Excelser,

ich habe in einer Maske ein Eingabefeld (Textbox). Ich möchte nun überprüfen, ob diese eine Zahl ist oder Text (also keine Buchstaben).

Ich habe gedacht an:

If Textbox1.text Is Not Number than
Msgbox ("Bitte Zahl eingeben.")
End If

Nur irgendwie klappt es nicht.

Vielen Dank im Voraus
Eure Nina

Bild


Betrifft: AW: Abfangen von nicht numerischen Eingabe in Textbox
von: Michael Scheffler
Geschrieben am: 07.11.2003 13:52:31

If Not(IsNumeric(Textbox1))


Bild


Betrifft: AW: Abfangen von nicht numerischen Eingabe in Textbox
von: Otto Ecker
Geschrieben am: 07.11.2003 13:52:38

Hallo Nina,

if not isnumeric(textbox1) then
usw.

Gruß Otto


Bild


Betrifft: AW: Abfangen von nicht numerischen Eingabe in Textbox
von: Hajo_Zi
Geschrieben am: 07.11.2003 13:53:10

Hallo Nina

ich vermute mal Du meinst eine Userform


Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'   von L.Vira, kein Komma
'   Eingaben nur Zahlen
    Select Case KeyAscii
        Case 48 To 57
        Case Else: KeyAscii = 0
    End Select
End Sub



Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro




Bild

Beiträge aus den Excel-Beispielen zum Thema " Abfangen von nicht numerischen Eingabe in Textbox"