Hallo Achim,
in das Codefenster der Tabelle einfügen wo der CommandButton1 angezeigt werden soll:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A5") = 1 Then CommandButton1.Visible = True
If Range("A5") = 2 Then CommandButton1.Visible = False
End Sub
Gruß
fedjo