Private Sub Tbgrund1_Change()
With Me
If linie = False Then
If .Tbgrund1.LineCount = 6 Then
MsgBox " Bitte Eingabe beenden! Maximale Anzahl der Zeilen ist erreicht."
linie = True
End If
End If
End With
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If TextBox1.LineCount > 5 Then KeyAscii = 0
End Sub
Gruß, Daniel