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, 2)) = vbNewLine
Eingabefeld.Text = Right(Eingabefeld.Text, Len(Eingabefeld.Text) - 2)
Loop
End If
If Len(Eingabefeld.Text) > 0 Then
Do While (Right(Eingabefeld.Text, 2)) = vbNewLine
Eingabefeld.Text = Left(Eingabefeld.Text, Len(Eingabefeld.Text) - 2)
Loop
End If
Eingabefeld.Text = Trim(Eingabefeld.Text)
End If
Next