Knop zichtbaar en onzichtbaar maken

[Koelieman]

Geachte forummers,
Kan iemand van jullie het volgende begrijpen en advies geven?
Op 1 werkblad heb ik drie installaties, zeg maar A, B en C.
Nu wil ik een knop inbouwen die alleen bij A en B hoort.
Deze knop is dus als je het bestandje opstart onzichtbaar, maar moet tevoorschijn komen indien je A of B kiest.
Ik heb nog geen voorbeeldje, maar ik hoop dat het duidelijk is wat het beoogde doel is.

Dank voor het lezen en een groet, koelie.

 

[SjonR]

Zo ? in cel A1 A of B (hoofdletters) invullen zorgt dat knop verschijnt.

 

[Koelieman]

Dank je wel SjonR,
Ik denk dat het aardig in de buurt komt van wat ik bedoel.
Ik ga dit nog uitwerken in mijn nog te maken bestand en laat het even weten.
Nogmaals dank en een groet, koelie.

 

[edmoor]

Iets andere code ervoor:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    CommandButton1.Visible = [A1] = "A" Or [A1] = "B"
End Sub

 

[Koelieman]

Bedankt Edmoor en SjonR,
De codes werken perfect; alleen een kleine maar . . .
Deze 3 installaties worden per stuk als een rechthoek (of vierkantje) in rij 1 neergezet.
Ik wil de knop dus oproepen door op een van deze "shapes" te klikken; een soort hyperlink dus.
Sorry dat ik niet echt duidelijk was met mijn vraag, maar ik wil dus niet iedere keer iets intypen in A1.
De code voor wat de knop zelf moet doen is al gemaakt door middel van een opgenomen macro.

Hopelijk nog te begrijpen en alvast bedankt, koelie.

 

[Jack Nouws]

deze code achter je shape

Blad1.CommandButton1.Visible = Not Blad1.CommandButton1.Visible

 

[edmoor]

De code blijft gelijk maar dan achter de Shape:

Sub NaamVanJeShape_Click
    CommandButton1.Visible = [A1] = "A" Or [A1] = "B"
End Sub

 

[Koelieman]

Bedankt heren(?),

Het is gelukt; precies wat ik in gedachte had.
Alleen de code van Jack:

Blad1.CommandButton1.Visible = Not Blad1.CommandButton1.Visible

moest ik veranderen in: Blad1.CommandButton1.Visible = False
Blad1.CommandButton1.Visible = True

Toen werkte hij dus wel in combinatie met de vorige code van Edmoor.
Nogmaals dank en tot een volgende keer.
Groet, koelie.