command butten werking

[ASchuurhuis]

Geachte leden
ik heb het volgende bewerking op een command button waarbij deze button geblokkeerd is als een bepaalde cel niet aan voorwaarden voldoet, als ik in deze cel zelf 1 in vult werkt deze button, als ik een berekening onder deze cel heb zitten werkt deze niet.
weet iemand wat ik moet veranderen.
alvast bedankt
Albert Schuurhuis


Private Sub worksheet_Change(ByVal Target As Range)
If Target.Address = ("$a$1") Then
If Range("$a$1") = 1 Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If
End If
End Sub

 

[Emil S]

Verander:
If Target.Address = ("$a$1") Then
in:
If Target.Address = ("$A$1") Then

 

[ASchuurhuis]

Verander:
If Target.Address = ("$a$1") Then
in:
If Target.Address = ("$A$1") Then

 

[ASchuurhuis]

hiermee lukt het niet, If Range("$A$1") = 1 Then als er op deze cel een formulle staat werk deze niet

 

[Emil S]

je zal duidelijker moeten zijn:
als 1 dan commandbutton zichtbaar
als formule en uitkomst 1 dan zichtbaar.
als formule ongeacht uitkomst dan ????

 

[snb]

Dit lijkt me voldoende:

Private Sub worksheet_Change(ByVal Target As Range)
  CommandButton1.Enabled = Target.address & "_" & target.value="$A$1_1"
End Sub