Button with 2 functions VBA

[KlausW]

Hello, is it possible to make a button that on the first press puts 1 in cell E1 and if I press it once more puts a 0 in cell E1.
I have tried with this VBA code but it doesn't do what I want.
Any help will be appreciated.
Best Regards
Klaus W

Private Sub CommandButton1_Click()
   
Range("D3").Value = Range("D3") + 1
 
Range("D3").Value = Range("D3") - 1

End Sub

 

[Peter_SSs]

Like this?

Private Sub CommandButton1_Click()
  With Range("E1")
    .Value = 1 - .Value
  End With
End Sub

 

[KlausW]

Like this?

Private Sub CommandButton1_Click()
  With Range("E1")
    .Value = 1 - .Value
  End With
End Sub

Hi Peter_SS
Just as it should be, thank you very much.
Good day from here in Denmark
Best regards
Klaus W

 

[Peter_SSs]

Glad to help. Thanks for the follow-up.