Textbox in Form nur numerische Eingaben zulassen

Hallo Forum,

ich habe ne textbox in der ich nur numerisch eingaben zulassen will. In VBA geht das folgendermassen.

Private Sub TextBox1_keypress(ByVal KeyAscii As MSForms.ReturnInteger
Select Case KeyAscii
Case 33 To 58
Case 60 To 126
Case Else
KeyAscii = 0
End Select
end sub

Ich schaff es leider nicht in VB.

[ARCUS_L]

Hi !

Ich weis zwar nicht welche Ascii Tabelle Du hast.
Soviel ich weis beginnen Zahlen bei 48 und enden bei 57 !

Private Sub Text1_KeyPress(KeyAscii As Integer)

Select Case KeyAscii

Case 48 To 57

MsgBox KeyAscii

Case Else

MsgBox "Keine Zahl"

End Select

End Sub

ich kann in die textbox klicken aber nix passiert.
Ich prog in VB studio.

Danke

[ARCUS_L]

Hi !

ich habe ne textbox in der ich nur numerisch eingaben zulassen will. In VBA geht das folgendermassen.

Von Klicken steht hier aber nichts !!

Verwendest du net ? Wenn ja wäre es von Vorteil das dazu zu schreiben.

mfg ARCUS_L

Bin ein VB studio absolute beginner

[ARCUS_L]

Hi !

OK !

Ist aber gleich simpel

Einfach ins TextBox1_KeyPress einfügen.
Select Case e.KeyChar

Case Chr(48) To Chr(57)

MsgBox(e.KeyChar)

Case Else

MsgBox("Keine Zahl")

End Select

mfg ARCUS_L