PDA

Vollständige Version anzeigen : UserForm1.TextBox & i


SeNf
21.09.2016, 09:21
Moin,
ich hab mehrere TextBoxen in einer UserForm die möchte ich in einer schleife nacheinander befüllen...

etwa so:

Sub Test ()
for i = 1 to 10
UserForm1.TextBox & i = "irgendwas..."
next i
end sub

das geht so aber nicht :-( gibt aber sicher mal wieder eine einfache lösung, so meine Hoffnung :-)

Gruß
Steffen

mathieu_91
21.09.2016, 09:41
Hallo,

probiere das mal aus. Hatte es zwar in einem Frame, könnte aber so auch funktionieren.


For i = 1 To 10
Me.Controls("Textbox_" & i).value= ""
Next i


Wichtig ist hierbei, dass deine TextBoxen auch wirklich so heißen.

Grüße

Mathieu

EarlFred
21.09.2016, 09:47
Hallo Steffen,

so?
Option Explicit

Sub Test()
Dim i As Byte

For i = 1 To 10
UserForm1.Controls("TextBox" & i).Value = "irgendwas..."
Next i
End Sub

...wie Mathieu auch schon sagte...

Steht der Code in der Userform1, wäre Me auch mein Favorit.

Grüße
EarlFred

SeNf
22.09.2016, 09:23
Moin,
danke für die prompte hilfe ...wieder einmal!

For i = 1 To 10
n=UserForm1.Controls("Textbox_" & i).value
Next i

so funktioniert das auch im modul
Gruß