Leider noch ein Fehler und ich war so froh...
18.07.2005 17:41:50
walter
hatte vorhin das Problem und Hilfe erhalten.
Funktioniert auch, leider nicht wenn ich mit dem Zahlenblock Zahlen Rechts auf der Tastatur eingebe.
Ind der MITTE oberhalb der Buchstaben geht alles.
Vielleicht kann noch einmal helfen.
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
' If IsNumeric(TextBox1) = False And TextBox1 <> "" Then
If KeyCode >= 96 And KeyCode <= 105 Or KeyCode = 32 Then
MsgBox " Sie dürfen nur Buchstaben oder Ziffern eingeben", _
vbCritical, "Error !!!"
TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
TextBox1 = ""
TextBox1.SetFocus
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End Sub
Gruß Walter MB
Anzeige