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

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

For i=1 To 7
Userform1.Controls("TextBox" &i).Value = i*2
Next i


Might be a bit more compact.

--
Regards,
Tom Ogilvy



"Philipp Schramek" wrote in message
...
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