ist es möglich einer Textbox in einer Userform die Anzahl der Zeilen zubeschränken zB auf nur 7 Zeilen.
Oder eben nur Zeilen im sichtbaren Bereich.
Wenn ja, dann bitte wie - vielleicht über ein Makro ?
Gruß Wolfgang
Option Explicit
Dim Eingabesperren As Boolean
Private Sub TextBox1_Change()
Dim MaxZeilen As Integer
MaxZeilen = 7
Eingabesperren = False
If TextBox1.LineCount > MaxZeilen Then
MsgBox "Es sind nur " & MaxZeilen & " Zeilen zulässig." & Chr("10") & "Bitte Textteile lö _
schen.", VbCritical
Eingabesperren = True
End If
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Eingabesperren Then KeyAscii = 0
End Sub
Gruß, Daniel