Naam checkbox userform

[Gerard2348]

Ik vroeg mij af of het mogelijk is om de naam van een checkbox op een userform te koppelen aan een cel.
M.a.w. ik heb een sheet met daarin een userform die ik oproep dmv een commandbutton. Op het userform staan 8 checkboxen. Kan ik de namen van deze checkboxen veranderen door de inhoud van een cel te veranderen.

bv
B2 = Piet
B3 = Jan
B4 = Klaas

Nu worden de cel namen verandert in

B2 = Marie
B3 = Karin
B4 = Els

enz. Het zal mooi zijn als de checkbox naam (Caption) mee verandert

 

[VenA]

Zonder voorbeeldje iets in deze vorm

Private Sub UserForm_Activate()
CheckBox1.Caption = Sheets(1).Cells(2, 2)
CheckBox2.Caption = Sheets(1).Cells(3, 2)
CheckBox3.Caption = Sheets(1).Cells(4, 2)
End Sub

 

[Gerard2348]

Het is mij niet gelukt.

Heb bestand bijgevoegd

 

[VenA]

En waarom is het niet gelukt? Ik kan nergens vinden dat je een poging gedaan hebt. Ik weet weinig van formulieren en de code kan volgens mij ook wel in 1 of 2 regels.

Private Sub UserForm_Activate()
    CheckBox1.Caption = Sheets(2).Cells(2, 1)
    CheckBox2.Caption = Sheets(2).Cells(3, 1)
    CheckBox3.Caption = Sheets(2).Cells(4, 1)
    CheckBox4.Caption = Sheets(2).Cells(5, 1)
    CheckBox5.Caption = Sheets(2).Cells(6, 1)
    CheckBox6.Caption = Sheets(2).Cells(7, 1)
    CheckBox7.Caption = Sheets(2).Cells(8, 1)
    CheckBox8.Caption = Sheets(2).Cells(9, 1)
End Sub

Maar het werkt wel.

 

[Warme bakkertje]

Private Sub UserForm_Activate()
    For i = 1 To 8
        Me("CheckBox" & i).Caption = Sheets(2).Cells(i + 1, 1)
    Next
End Sub

 

[VenA]

@Warme bakkertje,

Even jouw avatar in de praktijk uitgevoerd. Me gebruiken in formulieren da's waar ook.

 

[Gerard2348]

He hartstikke bedankt. Ik had de code in blad1 gezet. Vandaar dat het niet werkt.