I found a way to do it:
For i=1 To 7
Dim ctl As Control
For Each ctl In Controls
If TypeName(ctl) = "TextBox" Then
If ctl.Name = "TextBox" &i Then
ctl.Value = i*2
End If
End If
Next
Next i

If someone knows a more elgant way please let me know.
Cheer Philipp

Philipp Schramek schrieb:
Dear All
Following code is simple:

....
For i=1 To 7
Worksheets("Sheet"&i).Range("A1").Value = i*2
Next i
....

But if I want to do that with a TextBox how can I do that if I have
TextBox1 to TextBox7:

....
For i=1 To 7
TextBox i .Value = i*2
Next i
....

How do I program the line within the loop? I know, it would not work
like that.


Thanks Philipp