Keypressabfragen in eine Funktion auslagern
02.10.2014 13:56:26
Ronny
ich versuche krampfhaft eine Keypressabrage für Textboxen in einer userform in eine Funktion zu pressen. Leider schmiert Excel dann regelmäßig ab.
Wer weiß wie´s geht?
Meine Sub schauen eigentlich ganz einfach aus und funktionieren auch. Aber das muß doch schöner gehen. Leider habe ich mit Funktionen mal so gar keine Ahnung.
Private Sub Breite_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'Zahlenfelder prüfen
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(".")
If InStr(1, UserForm4.Breite.Text, ".") > 0 Then
KeyAscii = 0
End If
Case Else
MsgBox ("nur Zahlen erlaubt")
KeyAscii = 0
End Select
End Sub
Private Sub Hoehe_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'Zahlenfelder prüfen
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(".")
If InStr(1, UserForm4.Hoehe.Text, ".") > 0 Then
KeyAscii = 0
End If
Case Else
MsgBox ("nur Zahlen erlaubt")
KeyAscii = 0
End Select
End Sub
Private Sub Tiefe_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'Zahlenfelder prüfen
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(".")
If InStr(1, UserForm4.Tiefe.Text, ".") > 0 Then
KeyAscii = 0
End If
Case Else
MsgBox ("nur Zahlen erlaubt")
KeyAscii = 0
End Select
End Sub
Anzeige