[Excel] Keuzerondje automatisch

[Verwijderd]

Hej Hallo,

Het is de bedoeling dat OptionButtion10 dezelfde waarde krijgt als OptionButton1.
Nu heb ik van alles geprobeerd maar niks blijkt te werken, verder kent VBA geen Else statement? Zou iemand voor mij de volgende code willen vebeteren?

code:

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then OptionButton10.Value = True
If OptionButton1.Value = False Then OptionButton10.Value = False
End Sub


Private Sub OptionButton10_Click()

End Sub

[CoRrRan]

Misschien dit:

Visual Basic:

Private Sub OptionButton1_Change()
    If OptionButton1.Value = True Then OptionButton10.Value = True
    If OptionButton1.Value = False Then OptionButton10.Value = False
End Sub

Je moet volgens mij ook uitkijken dat je de twee optionbuttons NIET in dezelfde FRAME staan. Visual Basic wil dan namelijk maar een option-button TRUE laten zijn.

Tenzij je ervoor zorgt dat de option-buttons in verschillende GROUP'en staan (dat is een option-button property.

[ Voor 46% gewijzigd door CoRrRan op 18-04-2003 13:23 . Reden: Info toegevoegd ]

[Lister]

Dit zou je bijvoorbeeld ook kunnen doen:

code:

Private Sub OptionButton1_Change()
    OptionButton10.Value = OptionButton1.Value
End Sub

Zoals CoRrRan al zei moet je inderdaad er wel opletten dat ze niet in hetzelfde frame zitten, anders werkt dit nog niet

Verder kent VBA wel een Else gedeelte, dan moet je het alleen wel afsluiten met een End If

code:

Private Sub OptionButton1_Change()
    If OptionButton1.Value = True Then
        OptionButton10.Value = True
    Else
        OptionButton10.Value = False
    End If
End Sub

[Verwijderd]

De volgende Code is genoeg

code:

Private Sub OptionButton1_Change()
  OptionButton10.Value = OptionButton1.Value
End Sub

Let op dat de optionbutton in een groep werkt...dwz als OptionButton1 alleen in een groep staat dan kun je hem wel 'aan' zetten maar nog een keer klikt zal hij niet 'uit' gaan.

bovenstaande code werkt dus alleen als je een groep optionbuttons hebt.
Wanneer de button niet in een groep moet zitten zal je de checkbox moeten gebruiken.

BTW else werkt ook in VBA

code:

if SomeThingIsTrue then
  do Something
else
 do SomethingElse
end if

[Verwijderd]

hej bedankt jongens dat ga ik ff proberen, ik heb verschillende groepen inderdaad.
Bij Else en End If plaatste hij een : achter else dus Else: (dit ging automatisch) en daar kwam steets een foutmelding uit. Ik had option explicit aangezet maar dat werkte ook niet.

[Verwijderd]

De volgende Code is genoeg
code:
--------------------------------------------------------------------------------
Private Sub OptionButton1_Change()
OptionButton10.Value = OptionButton1.Value
End Sub

Dit werkt dus niet het rondje blijft op false staan