Checkboxes

[aceituna]

Beste Allemaal,

Ik probeer iets in VBA, maar dit specifieke probleem lukt me niet, wie kan mij helpen?
In 1 sheet("Start") staan 10 checkboxen.
de formule moet het volgende gaan:

Als de checkboxen 1, 2, 3, 4, 8 en 10 FALSE zijn.
en één van de overige is True (5, 6, 7 of 9) dan wil ik als waarde in cel A1 "Ja"
als één van de checkboxen 1, 2, 3, 4, 8 of 10 TRUE is. dan is de waarde in cel A1 "Nee"

ik heb al verschillende mogelijkheden geprobeerd, maar hier schiet mijn kennis te kort, dus ik heb niet eens een code waarinn gesleuteld moet worden, ik heb niet eens een code .

Alle hulp is welkom,

Alvast bedankt

 

[HSV]

Test het eens.

In een standaard module:

Sub hsv()
Dim mijncheck As Boolean
  With Sheets("Start")
    mijncheck = WorksheetFunction.And(WorksheetFunction.And(.OLEObjects("Checkbox1").Object.Value = False, _
    .OLEObjects("Checkbox2").Object.Value = False, .OLEObjects("Checkbox3").Object.Value = False, _
    .OLEObjects("Checkbox4").Object.Value = False, .OLEObjects("Checkbox8").Object.Value = False, _
    .OLEObjects("Checkbox10").Object.Value = False), _
    WorksheetFunction.Or(.OLEObjects("CheckBox5").Object.Value = True, _
    .OLEObjects("CheckBox6").Object.Value = True, .OLEObjects("CheckBox7").Object.Value = True, _
    .OLEObjects("CheckBox9").Object.Value = True) = True)
   Range("A1") = IIf(mijncheck = True, "Ja", "Nee")
  End With
End Sub

In bladmodule 'Start'.

Private Sub CheckBox1_Click()
 hsv
End Sub

Private Sub CheckBox10_Click()
 hsv
End Sub

Private Sub CheckBox2_Click()
 hsv
End Sub

Private Sub CheckBox3_Click()
 hsv
End Sub

Private Sub CheckBox4_Click()
 hsv
End Sub

Private Sub CheckBox5_Click()
 hsv
End Sub

Private Sub CheckBox6_Click()
 hsv
End Sub

Private Sub CheckBox7_Click()
 hsv
End Sub

Private Sub CheckBox8_Click()
 hsv
End Sub

Private Sub CheckBox9_Click()
 hsv
End Sub

 

[snb]

of

Sub hsv()
   For j = 1 To 6
      x = x + Sheets("Start").OLEObjects("Checkbox" & Choose(j, 1, 2, 3, 4, 8, 10)).Object.Value
      If j < 5 Then y = y + Sheets("Start").OLEObjects("Checkbox" & Choose(j, 5, 6, 7, 9)).Object.Value
   Next
   Cells(1) =  IIf(x = 0 And j > 0, "ja", IIf(y > 0, "nee",""))
End Sub

 

[HSV]

@snb,

Leuk om te zien met die Choose functie.
Ík had precies dezelfde opzet behalve de 'choose', dus ben ik daar weer vanaf geweken omdat ik het verder niet aan de praat kreeg.
Heb het niet getest, maar neem dat voor lief.

 

[Warme bakkertje]

Sub hsv()
   For j = 1 To 6
      x = x + Sheets("Start").OLEObjects("Checkbox" & Choose(j, 1, 2, 3, 4, 8, 10)).Object.Value
      If j < 5 Then y = y + Sheets("Start").OLEObjects("Checkbox" & Choose(j, 5, 6, 7, 9)).Object.Value
   Next
   Cells(1) =  IIf(x = 0 And j > 0, "ja", IIf(y [COLOR="#FF0000"]=[/COLOR] 0, "nee",""))
End Sub

Zo gaat hij wel correct.

 

[aceituna]

Super!!!! dank jullie wel:thumb: