ich weiß das Thema wurde schon oft besprochen (in einer Textbox bzw. vielen Textboxen nur Zahlen zulassen) und ich habe auch einen entsprechenden Beitrag gefunden, den ich versucht habe umzusetzen. Aber iregndwie will es noch nicht ganz klappen. Kann mal bitte jemand schauen, was ich in meinem UserFormCode falsch mache?
Das steht in der UserForm1:
Option Explicit
Dim objTbx(1 To 5) As New Klasse1
Private Sub UserForm_Activate()
'Textboxen initialisieren
Set objTbx(1).myTxtBox = TextBox1
Set objTbx(2).myTxtBox = TextBox2
Set objTbx(3).myTxtBox = TextBox3
Set objTbx(4).myTxtBox = TextBox4
Set objTbx(5).myTxtBox = TextBox5
End Sub
Und das in der Klasse1:Option Explicit
Public WithEvents myTxtBox As MSForms.TextBox
Private Sub myTxtBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57, 44, 46
Case Else: KeyAscii = 0
End Select
End Sub
In diesem Zusammenhang habe ich noch eine Frage bzw. dessen Umsetzbarkeit. Kann ich nur ein Komma bzw. einen Punkt pro TextBox zulassen?Ich hoffe es kann mir jemand helden.
Vielen Dank und viele Grüße,
Frank