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 TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

textBox1 prüfen ob numerische eingabe

Betrifft: textBox1 prüfen ob numerische eingabe von: achim h.
Geschrieben am: 06.11.2006 11:53:05

Hallo Excel freunde

wer kann mal schauen

das makro soll prüfen aber schon bei der eingabe ob das was ich eingebe auch numerisch ist. leider tut es nicht...


Private Sub TextBox1__Exit _
(ByVal Cancel As MSForms.ReturnBoolean)

If Len(TextBox1.Text) = 0 Then Exit Sub
If Not IsNumeric(TextBox1.Text) Then
MsgBox "Bitte numerischen Wert eingeben!"
Cancel = True
End If

End Sub



gruss

achim h.
  


Betrifft: AW: textBox1 prüfen ob numerische eingabe von: Mac4
Geschrieben am: 06.11.2006 13:28:29

Hallo Achim,

da kannst Du das KeyPress-Ereignis der Textbox nutzen:

Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Prüft jedes eingegebe Zeichen
    Select Case KeyAscii
    Case 48 To 57
    Case Else
    MsgBox "Es sind nur numerische Eingaben möglich!", vbCritical
    KeyAscii = 0
    End Select
End Sub


Marc


  


Betrifft: AW:danke von: achim h.
Geschrieben am: 06.11.2006 13:32:54

hallo marc

klappt nun so wie ich möchte

danke achim h.


 

Beiträge aus den Excel-Beispielen zum Thema "textBox1 prüfen ob numerische eingabe"