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. |