Memo-Feld Zeichenzahl limitieren

[Carl]

Ich würde aus verschiedenen Gründen gern mit Memofeldern arbeiten, die Zeichenzahl aber auf ca. 500 begrenzen.

Ich habe Funktionen für das Formular gefunden, hätte aber gern eine tabellenseitige Begrenzung, Geht sowas?

Und wenn nein, wie macht man das Eurer Meinung nach am Elegantesten mit VBA für das Feld [Memobeispiel]?

Carl

[MzKlMu]

Hallo,
siehe Bild.

[Carl]

Ah, vielen Dank.

Wann bzw. für welche Zwecke würdet Ihr denn die Option in diesem Fall auf Rich Text setzen?

[Carl]

Länge([Memofeld])< 501 funktioniert auf Tabellenebene,.

Nun möchte ich im Formular den Hintergrund bedingt rot formatieren, wenn BEI DER EINGABE die Zeichenzahl von 500 überschritten wird. im Netz habe ich nur eine Lösung für Excel gefunden, die eine Meldung ausgibt. Kann man da irgendwie eine bedingte Formatierung für den Hintergrund des Feldes im Formular draus machen?

Code [Auswählen] Erweitern

Private Sub TextBox1_Change()
If Len(TextBox1.Value) > 500 Then
Range("A1") = Len(TextBox1.Value)
Else
Range("A1") = "Es reicht!! " & Len(TextBox1.Value)
End If
End Sub


[MzKlMu]

Hallo,
bedingte Formatierung müsste man probieren.
Aber Du kannst den Text begrenzen.
Z.B. so:

Code [Auswählen] Erweitern

Private Sub Memofeld_Change()
   If Len(Me.Memofeld.Text) > 500 Then
        Me.Memofeld = Left(Memofeld.Text, 500)
        MsgBox "Habe fertig"
   End If
End Sub
Das .Text ist wichtig.

[Carl]

Hat auf Anhieb geklappt. Danke