letzte zeichen entfernen
Frank
wie muss der Code lautetn wenn ich in einer Textbox in einer Userform vom eingetragenem Text die letzen 2 Zeichen löschen möchte sobald 20 Zeichen erreicht sind?
meine idee dazu ist:
Private Sub TextBox1_Change()
If Len(TextBox1) > 20 Then
TextBox1 = Left(TextBox1) - 1
UserForm2.Show
End If
End Sub
Gruss Frank