Optionbuttons waarde laten kiezen in vba

[aris85]

Hoi allemaal,

Ik heb een formulier gemaakt met daarom de uren die men kan kiezen, dus uur 1 tm 9 dus dit zijn 9 optionbuttons. Nu moet de waarde één van deze wegschrijven. Maar dit krijg ik niet voor elkaar.

Ik heb zoiets als (uit hulp van excelforum, maar het werkt niet):

emptyrow = WorksheetFunction.CountA(Range("A:A")) + 1

Cells(emptyrow, 3).Value = CDate(datum)
Cells(emptyrow, 4).Value = naam.Value
Cells(emptyrow, 5).Value = Project.Value

    
          For Each x In invoer.Controls 
                                       
              If x.Value = True Then
               Cells(emptyrow, 6).Value = x.Caption 
              End If                     
          Next
    
        
Cells(emptyrow, 7).Value = overiguur.Value
Cells(emptyrow, 8).Value = opm.Value
Cells(emptyrow, 1).Select
ActiveCell.FormulaR1C1 = "=WEEKNUM(RC[1],1)-1"
Cells(emptyrow, 2).Select
ActiveCell.FormulaR1C1 = "=MAAND(RC[1])"
 
Sheets("gegevens").Activate

 

[Warme bakkertje]

Dit werkt perfect voor mij.

    For Each ctl In Me.Controls
        If ctl = True Then Cells(emptyrow, 6) = ctl.Caption
    Next

 

[aris85]

dankjewel!!

 

[guidoguido]

emptyrow = WorksheetFunction.CountA(Range("A:A")) + 1

Kan iemand me exact uitleggen wat deze code inhoud a.u.b.?
Met dank
guido