mehrer Textboxenmit gleicher Funktion ansprechen
21.04.2015 13:03:22
Wolfgang
um Leerzeichen vor und (oder) nach einen String zu entfernen hab ich folgende Funktion geschrieben:
Function LeerzeichenEntfernen()
Dim k As Integer
Dim IH As Integer
With Dateneingabe
For k = 1 To 5
IH = Len(.TextBox1.Value)
If Right(.TextBox1.Value, 1) = " " Then
.TextBox1.Value = Left(.TextBox1.Value, IH - 1)
End If
If Right(.TextBox1.Value, 1) " " Then Exit For
Next k
For k = 1 To 5
IH = Len(.TextBox1.Value)
If Left(.TextBox1.Value, 1) = " " Then
.TextBox1.Value = Right(.TextBox1.Value, IH - 1)
End If
If Left(.TextBox1.Value, 1) " " Then Exit For
Next k
End Wiht
End Function
Nun zur Frage: was muss ich schreiben, um die Textbox2 bis 5 mit der gleichen Funktion anzusprechen, ohne alles mehrfach schreiben zu müssen.
Danke im Voraus
Wolfgang
Aus dem Erzgebirge
Anzeige