Mehrere Textboxen ansprechen
30.01.2020 21:30:37
MarC
ich habe im UserForm mehrere TextBoxen und möchte diese auf 40 Zeichen begrenzen. Das funktioniert so weit, aber anstatt für jede Box diese Zeile zu schreiben:
TextBox1.Text = Left(TextBox1.Text, 40)
Private Sub TextBox1_Change()
Dim i As Integer
For i = 1 To 40
If Len(TextBox1.Text) > 40 Then
Me.Controls("TextBox" & CStr(i)) = Left(Me.Controls("TextBox" & CStr(i)), 40)
'TextBox1.Text = Left(TextBox1.Text, 40)
MsgBox ("Die Zeichenfolge ist auf 40 begrenzt!")
End If
Next i
End Sub