Beste forum
Bij het inlezen van een sheet naar een userform wil ik in een CheckBox aangeven of er "Ja" of "" wordt gelezen in de sheet.
De volgende code geeft geen foutmelding en de msgbox (ter controle) geeft wel juist aan of deze is aangevinkt of niet. Toch blijft het 'vinkje' grijs, of de checkbox nu aan of uit is blijft het resultaat hetzelfde.
Cursor staat in kolom B en in kolom C staat "Ja"
Wat is hier fout in de code?
Bedankt
Probleem heb ik al gevonden
code stond bij UserForm_Initialize en niet bij UserForm_Activate
Bij het inlezen van een sheet naar een userform wil ik in een CheckBox aangeven of er "Ja" of "" wordt gelezen in de sheet.
De volgende code geeft geen foutmelding en de msgbox (ter controle) geeft wel juist aan of deze is aangevinkt of niet. Toch blijft het 'vinkje' grijs, of de checkbox nu aan of uit is blijft het resultaat hetzelfde.
Cursor staat in kolom B en in kolom C staat "Ja"
Wat is hier fout in de code?
Bedankt
Code:
If ActiveCell.Cells(1, 2).Value = "Ja" Then
Me.CheckBoxInschr.Value = 1 'ook TRUE werkt niet
Else
Me.CheckBoxInschr.Value = 0 ' ook FALSE werkt niet
End If
MsgBox IIf(CheckBoxInschr.Value, "CHECKED", "UNCHECKED") 'moet weg, enkel ter controle
MsgBox ActiveCell.Cells(1, 2).Value ' indien resultaat "Ja" toch blijft vinkje grijs / indien "" blijft het vinkje ook grijsProbleem heb ik al gevonden
code stond bij UserForm_Initialize en niet bij UserForm_Activate
Laatst bewerkt:
