Dim Eingabefeld As Control
For Each Eingabefeld In Controls
If Eingabefeld.Name Like "txt*" Or Eingabefeld.Name Like "cbo*" Then
Eingabefeld.Text = Trim(Eingabefeld.Text)
If Len(Eingabefeld.Text) > 0 Then
Do While Left(Eingabefeld.Text, 1) = vbNewLine
Eingabefeld.Text = Right(Eingabefeld.Text, Len(Eingabefeld.Text - 1))
Loop
End If
If Len(Eingabefeld.Text) > 0 Then
Do While Right(Eingabefeld.Text, 1) = vbNewLine
Eingabefeld.Text = Left(Eingabefeld.Text, Len(Eingabefeld.Text - 1))
Loop
End If
End If
Next