Buchstaben mit Leerstellen in TextBox
Urmila
ich habe folgenden Code um in einem TextBox (in diesem Fall tbname) die Eingabe auf Buchstaben von A-Z zu reduzieren:
Private Sub tbname_Change()
Dim sTxt As String
If tbname.Text = "" Then Exit Sub
sTxt = tbname.Text
If Not Right(sTxt, 1) Like "[a-z]" And Not _
Right(sTxt, 1) Like "[A-Z]" Then
sTxt = Left(sTxt, Len(sTxt) - 1)
tbname.Text = sTxt
End If
End Sub
Danke und regnerische Grüße ;-)
Urmila
Anzeige