Clever-Excel-Forum

Hallo zusammen,

Meine Multipage UserForm hat ca. 50 Textboxen und ich würde gerne in einer For-Schleife nur die Textboxen 1-10 ansprechen.

Alle Textboxen ansprechen klappt hiermit:

Code:
    Dim tb As Object

    For Each tb In UserForm2_de2.Controls

        If TypeName(tb) = "TextBox" Then .......

    Next tb

Danke vorab!

Hallo Korain,

Du könntest das Eigenschaften-Element "Tag" bei den Eigenschaften mit entsprechenden Werten bestücken (z.B. durchnummerieren oder nur eine 1 reinschreiben),
und diese dann entsprechend abfragen.

Beispiel:

Code:

Sub Test()
  Dim tb As Object

  For Each tb In UserForm2_de2.Controls
        If TypeName(tb) = "TextBox" And tb.Tag > 0 Then
           Debug.Print tb.Tag
        End If
  Next tb
End Sub

_________
viele Grüße
Karl-Heinz

Korain

volti