title image


Smiley Re: Dir. Sieht aber nicht so einfach aus, wie ich dachte. Na, wird schon o.T.
Hallo!



Ich habe Dir das mal für die Textbox1 und die Textlänge 4 entsprechend angepasst.

Sieht dann so aus:



Private Sub TextBox1_Change()

pos = TextBox1.SelStart

If pos > 0 Then

lastchar = Mid(TextBox1.Text, pos, 1)

If Len(TextBox1.Text) > 4 Then

If pos > 0 Then

TextBox1.Text = Left(TextBox1.Text, pos - 1) & Mid(TextBox1.Text, pos + 1)

End If

End If

End If

End Sub



Einfach in das Codefenster der Userform reinkopieren.



Viel Erfolg

Manes
Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: