counter in variable erhöhen in VBA

hi,

ich zerbrech mir jetzt schon seit einiger zeit den Kopf.

statt diesem hier:

Private Sub UserForm_Initialize()
TextBox1.Value = Cells(1, 2).Value
TextBox2.Value = Cells(2, 2).Value
TextBox3.Value = Cells(3, 2).Value
usw.
End Sub

will ich das so abkürzen:

Dim TextBox(250) As String
Dim i As Integer
For i = 1 To 250
TextBox (i).Value = Cells(i, 2).Value
Next


so klappts aber nicht.
würde mich freuen, wenn jemand eine antwort hat.

hab die lösung schon wo anders bekommen:

Hallo

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 250
Me.Controls(TextBox & i).Value = Cells(i, 2).Value
Next i
End Sub

Wenn deine Form keine 250 Textboxen mit Namen von TextBox1 bis
TextBox250 hat, tritt ein Fehler auf, sobald ein adressiertes
Control nicht gefunden wird. Und wenn deine Arbeitsmappe mehrere
Tabellen hat, werden die Werte vom gerade aktiven Blatt genommen.
Ggf. musst du die Tabelle angeben, z. B.

Me.Controls(TextBox & i).Value = Worksheets(Tabelle1). _
Cells(i, 2).Value

Gruß