Userform-Objekte per Variable ansprechen
25.04.2002 12:00:25
Thomas N.
Da z.Bsp. Textboxen eigenständige Objekte sind, kann ich sie nicht ansprechen.
Bei Tabellen funktioniert das folgendermassen:
sub test()
Dim x As Integer
Dim y As Worksheet
For x = 1 To 3
Set y = ActiveWorkbook.Worksheets(x)
MsgBox y.[a1]
MsgBox y.Name
Next
End Sub
Ich möchte aber so etwas auch für UserForm-Elemente. Da für die einzelnen Elementegruppen leider kein Index vorhanden ist habe ich mir folgendes gedacht:
sub test()
Dim x As Integer
Dim y As Textbox
For x = 1 To 3
Set y = "Textbox" & x
MsgBox y.Text
Next
End Sub
Das geht aber nicht. Hat jemand eine Idee?
Thomas