variable textbox

Question

hallo ich habe in einer userform textbos301 bis 310.
wie kann ich die den in eine schleife schreiben?

hab es momentan so.. und es geht nicht.

Danke

For i = 1 To 10
UserForm3.TextBox30& i.Value = Sheets("Tabelle1").Cells(zelle, i).Value
next i

Answer 1

Hallo gerrryy,

schau mal auf meiner HP in der Rubrik Beispieldateien und dort dann in dem Beispiel 59 (Beispiel 3) nach. Dort stelle ich dazu eine Beispieldatei zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 2

hallo oliver,
komme irgendwie nicht über diese form hinüber.. aber das funktioniert auch garnicht. :-)
UserForm3.("TextBox30" & i).Value =

vielen Dank für die Unterstützung.

Answer 3

Hallo,

was soll Antwort 2 nun bedeuten? Ist das eine Frage oder was?

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 4

Hallo,

nachfolgend mal ein Code, bei dem die Daten in die entsprechenden TextBoxen eingefügt werden.

Dim intTextBoxNr As Integer

For i = 1 To 10
intTextBoxNr = 300 + i
UserForm3.Controls("TextBox" & intTextBoxNr).Text = Sheets("Tabelle1").Cells(zelle, i).Value
Next i

Die Variable "intTextBoxNr " wird deshalb benötigt, da ansonsten bei TextBox309 schluß wäre, so wie es in der Frage mit "UserForm3.TextBox30& i.Value " angedacht gewesen wäre. Durch die Variable können dann auch TextBoxen mit dem Namen größer 309 gefüllt werden.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]