Mit Hilfe einer
kleinen Schleife können Sie alle Steuerelemente
in einer Userform ermitteln.
In diesem Beispiel wird der Name ermittelt:
Sub Steuerelemente()
Dim Objekt As Control
For Each Objekt In UserForm1.Controls
MsgBox Objekt.Name
Next Objekt
End Sub
Ein Anwendungsfall könnte beispielsweise das "Leeren" aller Texboxes sein.
Dabei ist natürlich der Name der Textbox entscheidend,
in diesem Fall wird ein vorangestelltes "Textbox" erwartet:
Sub Textboxes_leeren()
Dim Objekt As Control
For Each Objekt In UserForm1.Controls
If Left(UCase(Objekt.Name), 7) = "TEXTBOX" _
Then Objekt.Value = ""
Next Objekt
End Sub
|