mehrer Textboxenmit gleicher Funktion ansprechen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox
Bild

Betrifft: mehrer Textboxenmit gleicher Funktion ansprechen
von: Wolfgang
Geschrieben am: 21.04.2015 13:03:22

Hallo alle gemeinsam, ich habe folgendes Problem:
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

Bild

Betrifft: wozu Function?
von: Rudi Maintaire
Geschrieben am: 21.04.2015 13:16:00
Hallo,
Textbox1 = Trim(Textbox1)
reicht doch.
Gruß
Rudi

Bild

Betrifft: AW: wozu Function?
von: Wolfgang
Geschrieben am: 21.04.2015 14:26:16
Hallo Rudi,
Danke. Es ist so einfach, wenn man es weis.
Wolfgang
Aus dem Erzgebirge

 Bild

Beiträge aus den Excel-Beispielen zum Thema "mehrer Textboxenmit gleicher Funktion ansprechen"