Checkbox waarden zijn waar of onwaar omzetten naar ja of nee

[ExcelTonnie]

Ik heb een formulier met veel checkboxen en doe dit a.d.h.v. van for en next echter krijg ik dan als antwoord,
Waar of onwaar en wil in de meeste gevallen het antwoord ja of nee hebben.
Kan dit wel oplossen door elke checkbox apart te benoemen maar das heel veel werk en moet toch makkelijker kunnen maar kom hier even niet verder mee.

Hieronder de huidige situatie.

Private sub test1()
ws20.Select
For r = 1 To 50 '
        ws20.Cells(7, r) = Controls("checkbox" & r)
        Next
Unload Me
end sub

Als alternatief had ik.

Private sub test2()
ws20.select
If CheckBox1 = True Then
ws20.Cells(7, 41) = "Ja"
Else: ws20.Cells(7, 41) = "nee"
End If

If CheckBox2 = True Then
ws20.Cells(7, 42) = "Ja"
Else: ws20.Cells(7, 42) = "nee"
End If

End sub
'enz enz

 

[edmoor]

Laat dat ws20.Select weg.

Private Sub test1()
    For r = 1 To 50
        ws20.Cells(7, r) = Iif(Controls("CheckBox" & r), "Ja", "Nee")
    Next
    Unload Me
End Sub