Selectievakje 0 ipv ONWAAR en 1 ipv WAAR

[Norman Scheuter]

Hallo,

Is er een VBA die er voor zorgt dat als ik een selectievakje aan of uit vink, de waarde in de gekoppelde cel verandert in 1 of 0 ipv "WAAR" of "ONWAAR"
Ik gebruik in deze geen userform.

Mvg Norman

 

[AccessGuru]

Wat is "een VBA" die dat moet doen? Je kunt toch zelf even een macrootje maken die dat regelt? Post eens een voorbeeldje met wat je bedoelt, want erg duidelijk is je vraag niet.

 

[edmoor]

Verwijder de celkoppeling en gebruik dit:

Sub Selectievakje1_Klikken()
    Range("A1") = IIf(ActiveSheet.Shapes("Selectievakje 1").OLEFormat.Object.Value = xlOn, 1, 0)
End Sub

 

[Norman Scheuter]

Wat is "een VBA" die dat moet doen? Je kunt toch zelf even een macrootje maken die dat regelt? Post eens een voorbeeldje met wat je bedoelt, want erg duidelijk is je vraag niet.

Hoi AccessGuru,

Dat is het vreemde, we hebben dat gedaan, tijdens de opname gaat het goed.
Zodra we de macro draaien doet ie het niet.

Mvg Norman

 

[Norman Scheuter]

Verwijder de celkoppeling en gebruik dit:

Sub Selectievakje1_Klikken()
    Range("A1") = IIf(ActiveSheet.Shapes("Selectievakje 1").OLEFormat.Object.Value = xlOn, 1, 0)
End Sub

Hallo Edmoor,

Deze werkt, zodra ik door de vba loop
Is het mogelijk dat deze activeert zodra ik klik op het selectievakje?

Mvg Norman

 

[edmoor]

Die code hang je aan je eigen selectievakje.
Ik weet natuurlijk niet hoe die heet.
Klik er met rechts op en kies Macro toewijzen, Nieuw.
Plak dan die ene regel er in en pas eventueel de naam van het object aan.

 

[Norman Scheuter]

Die code hang je aan je eigen selectievakje.
Ik weet natuurlijk niet hoe die heet.
Klik er met rechts op en kies Macro toewijzen, Nieuw.
Plak dan die ene regel er in en pas eventueel de naam van het object aan.

Hoi Edmoor,

Dat ik daar niet aan dacht
Het werk helemaal zoals ik wil:thumb::thumb:

Dank je wel.

Norman

 

[VenA]

Kan gewoon zonder code.

 

[Norman Scheuter]

Hoi VenA,

Deze is ook heel mooi...


Norman