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
Hallo,
siehe Bild.
Ah, vielen Dank.
Wann bzw. für welche Zwecke würdet Ihr denn die Option in diesem Fall auf Rich Text setzen?
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?
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
Hallo,
bedingte Formatierung müsste man probieren.
Aber Du kannst den Text begrenzen.
Z.B. so:
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.
Hat auf Anhieb geklappt. Danke