Textbox(i) variabel

[Gremail]

Beste knappe koppen,
Ik heb een stukje code nodig waarbij ik op een userform een aantal textboxen zichtbaar laat worden afhankelijk van een waarde. Er staat nu 5, maar dat is een waarde die vanzelf door iets anders bepaald wordt. Ik heb hieronder eenvoudig weergegeven hoe ik het zou willen hebben, maar zo werkt het vanzelf niet. Wie kan mij helpen om het wel werkend te krijgen??

Dim i As Integer
i = 1

Do Until i = 5
UserForm1.textboxi.Visible = True
i = i + 1

Loop

Ik wacht in spanning af.

 

[Axel Hagg]

Dag Gremail,

Dim i As Integer

For i = 1 to 5
Choose(i,textbox1,textbox2,textbox3,textbox4,textbox5).Visible= True
Next

Zo zal het wel gaan.

Succes,

Axel.

 

[Wigi]

Hier heb ik code geschreven die je lichtjes kan aanpassen, maar die ook iets gelijkaardigs doet.

Wigi

 

[Axel Hagg]

Dag Wim,

Heel sofisticated.

Nog een oplossing

Dim f

For Each f In Controls
If InStr(f.Name, "Text") Then f.Value = True
Next

Vermits de naam van de tekst besturingselementen allemaal "Text" bevatten.

Gegroet,

Axel.

 

[Gremail]

Heren,

Ik had mijn vraag een week eerder moeten stellen, heb een week zitten vogelen.

Bedankt en een goed weekend.