Alle Steuerelemente in einer Userform ermitteln 01.06.2002
 

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