Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
letzte zeichen entfernen
Frank
hallo,
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
funzt aber leider nicht.
Gruss Frank

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: letzte zeichen entfernen
07.08.2009 11:05:20
ede
Hallo Frank,
verwende die MaxLength-Eigenschaft des Textbox, dann hast Du das Problem nicht!
gruss
jep, mach ich. kannte ich nicht. danke o.w.t.
07.08.2009 11:10:07
Frank
.
Eigenschaft -> MaxLength auf 20 setzen ...
07.08.2009 11:08:13
Matthias
Hallo
Es gibt doch die Eigenschaft: MaxLength
setz den Wert dort auf 20
ansonsten so:
Private Sub TextBox1_Change()
If Len(TextBox1.Text) > 20 Then TextBox1.Text = Left(TextBox1.Text, 20)
End Sub
Gruß Matthias
Danke dir auch. o.w.t.
07.08.2009 11:11:09
Frank
.
ähm, nachfrage
07.08.2009 11:14:29
Frank
wie würde denn der code lauten?
Das stand im Beitrag oT
07.08.2009 11:16:39
Matthias
ups. wer lesen kann ... sorry und danke o.w.t.
07.08.2009 11:19:47
Frank
.
Anzeige

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige