TextBox1_BeforeUpdate
29.09.2013 13:22:49
Matze
Gebe ich "keinen Text" in die TextBox1 und bestätige ich mit Enter springt er in Textbox2 (klappt u. ist so in Ordnung)
Und nun das:
Habe ich doch einen Text in TB1 eingegebn und löschen den (zB weil falsch) und bestätige oder klicke mit der Maus in eine ander TextBox , meldet sich der Debugger und markiert den folgenden Code (fett dargestellt).
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
'1ter groß, rest kleine Buchstaben
TextBox1.Value = UCase(Mid(TextBox1.Value, 1, 1)) _
& LCase(Mid(TextBox1.Value, 2, Len(TextBox1.Value) - 1))
TextBox2.SetFocus
End Sub
Mir fehlt da eine Prüfung das wenn nix in der Textbox1 steht er diesen Fehler
nicht behandelt.
Nebenfrage: Habe weitere 4 TextBoxen - kann man das dafür eventuell zusammen fassen ?
Ein weiterer Code der TextBox1 soll nur die länge bestimmen. Der arbeitet ohne Fehler. Habe ich hier nur eingestellt damit man sieht was mit der TB1 passieren soll.
'Länge der Eingabe auf 15 Zeichen ohne ä,ö,ü
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Len(TextBox1.Text) Matze