Maximum Zeicheneingabe

Forumthread: Maximum Zeicheneingabe
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Maximum Zeicheneingabe

03.03.2007 17:39:00

Klaro

Hallo
Ich möchte in verschiedenen Zellen Text eingeben. Der Text in diesen Zellen darf aus max. 19 Zeichen inkl. Leerstellen bestehen. Wenn ich mehr eingeben soll das irgendwie angezeigt werden. Lässt sich mein Wunsch verwirklichen.
Danke

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Maximum Zeicheneingabe

03.03.2007 18:11:00

Veit
AW: Maximum Zeicheneingabe

ransi
AW: Maximum Zeicheneingabe

03.03.2007 18:24:00

Gert

AW: Maximum Zeicheneingabe

03.03.2007 18:11:00

Veit

Hallo Klaro,
Der folgende Code sollte tun:
'in Tabelle, nicht in "Diese Arbeitsmappe", nicht in Modul Private Sub Worksheet_Change(ByVal Target As Range) If Len(Cells(Target.Row, Target.Column).Value) > 19 Then MsgBox "maximale Länge überschritten" Application.EnableEvents = False Cells(Target.Row, Target.Column).Value = Left(Cells(Target.Row, Target.Column).Value, 19) Application.EnableEvents = True End If End Sub
Grüße
Ein Veit

AW: Maximum Zeicheneingabe

ransi

HAllo
Da hat Excel schon was fertiges:
Tabelle1