Value van een Checkbox Ja/Nee ipv. WAAR/ONWAAR

Status
Niet open voor verdere reacties.

harrybrinkman

Gebruiker
Lid geworden
7 nov 2019
Berichten
95
Toppers,

Mogelijk een simpele vraag maar ik kom er ff niet uit. Ik wil op een Userform 15 Checkboxes gebruiken om 15 corresponderende cellen in Excel op Ja of Nee te zetten. Helaas geeft de checkbox alleen de waarde "WAAR" of "ONWAAR". Ik ben echter persé de waarde "Ja" of "Nee" nodig omdat excel daarmee verder rekent in een bestand wat niet van mij is.

Kortom: kan je de uitkomst WAAR/ONWAAR van een checkbox ook wijzigen in Ja/Nee ?

Alvast bedankt

Harry
 
Nee, die waarde kan je niet wijzigen.
Je kan wel bepalen wat er wordt terug gegeven, wat dus Ja of Nee kan zijn.
Bijvoorbeeld;
Range("A1") = IIf(CheckBox1, "Ja", "Nee")
 
Laatst bewerkt:
nog niet helemaal :(

Edmoor,

Ik zet even een voorbeeldbestandje online want ik doe toch iets niet helemaal goed. Hij 'schrijft' inmiddels een Ja of een Nee naar de corresponderende cellen nadat ik een vinkje heb geplaatst op het Userform.
Als ik echter daarna het userform opnieuw open dan staan er geen vinkjes meer. Bv. een tekstbox koppel ik middels ControlSource aan een cel zodat de inhoud van die cel overneemt en vv. Maar als ik de ControlSource van een Checkbox koppel aan een cel waarin ik net een Ja of Nee heb laten zetten dan schiet ie in de stress. ik denk omdat een checkbox die Ja of Nee niet snapt. eigenlijk zou dat weer 'terugvertaald' moetn worden naar WAAR of ONWAAR ?? Of zit ik helemaal verkeerd te denken. Ik hoop dat het voorbeeldbestandje wat duidelijker is.

Ik wil dus feitelijk in het Userform een vinkje zetten/verwijderen, daardoor moet er een Ja of een Nee komen in een corresponderende cel, en als de volgende keer het Userform weer open moeten dat vinkje nog steeds corresponderen met de cel.

Sorry voor mijn domheid, maar ik zie het ff niet

mvrgr, Harry
 

Bijlagen

  • test met checkboxen.xlsm
    20,7 KB · Weergaven: 69
Als je een userform sluit met Unload Me zijn alle ingevulde gegevens de volgende keer verdwenen en dat is wat je doet.
Sluit hem met Me.Hide dan blijven de gegevens bewaard tot je het document zelf sluit.

Omm het dan toch te vullen met de juiste waarden kan je dit doen in de Userform_Initialize:
Code:
CheckBox1 = IIf(Sheets("Blad1").Cells(3, 2) = "Ja", 1, 0)
CheckBox2 = IIf(Sheets("Blad1").Cells(4, 2) = "Ja", 1, 0)
CheckBox3 = IIf(Sheets("Blad1").Cells(5, 2) = "Ja", 1, 0)
CheckBox4 = IIf(Sheets("Blad1").Cells(6, 2) = "Ja", 1, 0)
CheckBox5 = IIf(Sheets("Blad1").Cells(7, 2) = "Ja", 1, 0)
CheckBox6 = IIf(Sheets("Blad1").Cells(8, 2) = "Ja", 1, 0)
CheckBox7 = IIf(Sheets("Blad1").Cells(9, 2) = "Ja", 1, 0)
CheckBox8 = IIf(Sheets("Blad1").Cells(10, 2) = "Ja", 1, 0)
CheckBox9 = IIf(Sheets("Blad1").Cells(11, 2) = "Ja", 1, 0)
CheckBox10 = IIf(Sheets("Blad1").Cells(12, 2) = "Ja", 1, 0)
CheckBox11 = IIf(Sheets("Blad1").Cells(13, 2) = "Ja", 1, 0)

Kan een stuk korter, maar dit maakt het wel duidelijk ;)
 
Laatst bewerkt:
Dat kan natuurlijk veel netter:

Code:
Private Sub CommandButton1_Click()
    For i = 1 To 11
        Cells(i + 2, 2) = IIf(Me("CheckBox" & i).Value = True, "Ja", "Nee")
    Next i
    Unload Me
End Sub

Code:
Private Sub UserForm_Initialize()
    For i = 1 To 11
        Me("CheckBox" & i).Caption = Sheets("Blad1").Cells(i + 2, 1)
        Me("CheckBox" & i).Value = IIf(Sheets("Blad1").Cells(i + 2, 2) = "Ja", 1, 0)
    Next i
End Sub
 
Blijkbaar onbekend/onbemind:
Code:
msgbox format(true,"Yes/no")
   MsgBox Format(-1, "yes/no")
   MsgBox Format(0, "yes/no")
 
Laatst bewerkt:
Onbekend inderdaad.
Handig! :)
 
iedereen bedankt! het werkt
Ik heb gekozen voor de methode van SNB, die is het eenvoudigst lijkt me
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan