Macro of commandbutton disablen als A1=0

[Arito]

Beste helpers,

Ik heb een sheet waarin de cel A1 de waarde 0 of 1 kan hebben. Tevens zit er in deze sheet een macro met een bijbehorende commandbutton (zie voorbeeldsheet).

Ik wil graag dat als in cel A1 een 0 staat, de macro achter de commandbutton niet geactiveerd wordt. Dus of de commandbutton moet disabled worden, of de macro moet beginnen met een code waarin eerst wordt gekeken naar cel A1.

Iemand die me kan helpen met een van de twee manieren?

Bedankt.

 

[Roncancio]

In je bestand zit code die controleert of een 1 in cel a1 staat.
Staat er een 0 dan kan de macro niet geactiveerd worden.

Als alternatief heb ik een Togglebutton (=wisselknop) toegevoegd.
Dit is een soort aan- en uitknop. Is de knop ingedrukt dan kan de macro niet gestart worden.

Met vriendelijke groet,


Roncancio

 

[Arito]

Top! :thumb:

 

[Roncancio]

Ter info:
Ik realiseerde me dat de code wat korter kan.

Private Sub Worksheet_Change(ByVal Target As Range)
CommandButton1.Enabled = Range("A1").Value
End Sub

Met vriendelijke groet,


Roncancio