Keypress Ereignis
Sascha
Kann man das Keypress-Ereignis auch in einer Schlaufe einbinden?
Ich habe für mehrere Textboxen (benannt: TB3 - TB46) jeweils ein Keypress Befehl erstellt.
Nun möchte ich gerne die Mappengrösse reduzieren.
Ich habe versucht das Keypress-Ereignis das x-mal vorkommt in eine For - Next Schlaufe einzubinden.
Aber das funktioniert nicht so ganz.
Kann man dies nicht noch anders lösen für alle Textboxen?
Hier der Code für meine erste Textbox:
Private Sub TB3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'nur Zahlen eingeben. Text verboten
Select Case KeyAscii
Case 8, 9, 48 To 57 'Backspace, Tab, 0 bis 9
If InStr(1, TB3, ".") > 0 Then
If TB3.SelLength = 0 Then
If TB3.SelStart > InStr(1, TB3, ".") Then
If Len(Mid(TB3, InStr(1, TB3, ".") + 1)) > 0 Then
KeyAscii = 0
End If
End If
End If
End If
Case 46 'Punkt 44 = Komma
If InStr(1, TB3.text, Chr(46), vbTextCompare) > 0 Then
KeyAscii = 0
Beep
End If
Case Else
KeyAscii = 0
Beep
MsgBox String(5, 32) & "Hier dürfen nur Zahlen eingegeben werden. ", -8
End Select
End Sub
Sascha
Anzeige