Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

mehrer Textboxenmit gleicher Funktion ansprechen

mehrer Textboxenmit gleicher Funktion ansprechen
21.04.2015 13:03:22
Wolfgang
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
wozu Function?
21.04.2015 13:16:00
Rudi
Hallo,
Textbox1 = Trim(Textbox1)
reicht doch.
Gruß
Rudi

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

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige