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