code veel moeten herhalen

[elChiko]

Hoi allen.

ik heb (erg veel):
UserForm1.CheckBox1.Caption = Application.Worksheets("weergave").Range("A7").Value
UserForm1.CheckBox2.Caption = Application.Worksheets("weergave").Range("A8").Value
UserForm1.CheckBox4.Caption = Application.Worksheets("weergave").Range("A10").Value
.
.
.
UserForm1.CheckBox(laatste).Caption = Application.Worksheets("weergave").Range(("A")laaste).Value

wat moet er nu gaan gebeuren
if Application.Worksheets("weergave").Range("A7").Value = ""
Userform1.checkbox1.visible = False
Userform1.textboxbox1.visible = False
else
Userform1.checkbox1.visible = true
UserForm1.CheckBox1.Caption = Application.Worksheets("weergave").Range("A7").Value
Userform1.textboxbox1.visible = true
end if

het gaat om drie maal 16 keer dit opschrijven. Dat kan makkelijker denk ik als iedere keer de tekst herhalen. wie heeft iets leuks.

 

[HSV]

Als de volgorde klopt en niet springt van checkbox 2 naar 4, maar gewoon 1,2,3,4.
En of het om de cellen gaat die aaneengesloten zijn. a7, a8, a9, a10.

dim i as long
for i = 1 to 10
[COLOR=#333333]me("CheckBox" & i).Caption = sheets("weergave").cells(i + 6,1).Value[/COLOR]
[COLOR=#333333]next i[/COLOR]

en:

dim i as long
sn = range("A7:A16")
[COLOR=#3E3E3E]with sheets("weergave")
 for i = 1 to 10
[/COLOR][COLOR=#3E3E3E]   me("checkbox" & i).visible =sn(i,1) <> ""[/COLOR]
[COLOR=#3E3E3E] next i
end with 
[/COLOR]

 

[MDN111]

Misschien zoiets?

Option Explicit

Sub SetBoxes()
Dim arr As Variant, i As Integer, myTextBox As Control, myCheckBox As Control

arr = Array("A7", "A8", "A10", "A12", "A14", "A16", "A18", "A20", "A22") 'enz....

For i = LBound(arr) To UBound(arr)

    Set myCheckBox = Me.Controls("CheckBox" & CStr(i))
    Set myTextBox = Me.Controls("textboxbox" & CStr(i))

    If Worksheets("weergave").Range(arr(i)).Value = "" Then
    
        myCheckBox.Visible = False
        myTextBox.Visible = False

    Else
    
        myCheckBox.Visible = True
        myCheckBox.Caption = Worksheets("weergave").Range(arr(i)).Value
        myTextBox.Visible = True
        
    End If

Next

End Sub

Grtz,
MDN111.

 

[elChiko]

het door mij gezocht antwoord is :
me("checkbox" & i).visible ik probeerde me.("checkbox" & i).visible

wat een . verschil kan zijn. allen dank voor de hulp mijn probleem is opgelost:thumb:

 

[HSV]

mijn probleem is opgelost:thumb:

Graag gedaan.
Overigens staat die "opgelost" knop in je openingsvraag.