Ich bräuchte etwas Hilfe.
Der Inhalt einer Textbox soll in ein Formular übertragen werden.
In das Formular passen nur 100 Zeichen verteilt auf drei Zeilen.
Wenn jetzt jemand die 100 Zeichen in der TexBox auf 4 Zeilen verteilt, ist die vierte Zeile im Formular nicht mehr sichtbar.
Wie bekomme ich es hin, dass dem Benutzer maximal 100 Zeichen, verteilt auf 3 Zeilen (also maximal 2 Zeilenumbrüche ) zur Verfügung stehen?
Hier mein derzeitiger Code
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Label1.Caption = "Noch " & CStr(100 - Len(TextBox1.Value)) & " Zeichen von 100"
End Sub
Private Sub TextBox1_Change()
If TextBox1.TextLength > 100 Then
TextBox1.BackColor = RGB(255, 0, 0)
MsgBox "Zu viele Zeichen!"
Else
TextBox1.BackColor = RGB(255, 255, 255)
End If
End Sub
Vielen Dank