Een gekleurd vlak al dan niet doorzichtig maken als een cel leeg of gevuld is.

[Lengerke]

Beste mensen,

Ik wil het volgende:
Ik heb een cel F7 waar al dan niet iets in staat. Daarnaast heb ik een gekleurd vlak dat doorzichtig moet worden als er iets in F7 staat. Staat er niets in F7, dan moet het ondoorzichtig zijn. Volgens mij kan dat niet met een formule, maar moet dat met een stukje VBA dat niet in een module staat, maar dat in dat werkblad komt te staan.

Wie weet raad?

Tom

 

[VenA]

Zo?

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$F$7" Then Shapes("Rectangle 1").Fill.Transparency = 0.5 * Abs(Target = "")
End Sub

 

[Lengerke]

Dag VenA,

Bedankt voor jouw snelle reactie!
Sorry! Ik merk net dat ik een fout gemaakt heb.. Het moet niet werken met transparantie, maar met voor- en achtergrond..

Dus: als er niets in staat, dan moet het vlak naar de voorgrond en als er wel wat in staat, dan moet het vlak naar de achtergrond.

 

[HSV]

If Target.Address = "$F$7" Then Shapes(1).Visible = Target <> ""

Of:

If Target.Address = "$F$7" Then Shapes(1).Visible = Target >0

Ps. met naar voor- of achtergrond moet je er wel twee shapes in hebben staan.

Shapes(1).ZOrder Shapes(2).ZOrderPosition

 

[Lengerke]

Ik ben niet goed in het vertalen van mijn situatie naar een voorbeeldsituatie, sorry..
Ik wil commandbutton1 laten verdwijnen in het geval er in F7 niets staat.
Ik wil commandbutton1 laten verschijnen als er wel wat in F7 staat.
Wat zou dan de volledige code dan op dat blad moeten zijn?

 

[HSV]

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$F$7" Then CommandButton1.Visible = Target > 0
End Sub

Anders:<> ""

 

[Lengerke]

Het is gelukt!
Jullie zijn fantastisch, dank!

 

[VenA]

Dat had je zelf toch wel kunnen bedenken? Een CommandButton is ook een Shape en daar had je al een oplossing voor.......

 

[HSV]

Dan had Ts het niet gevraagd toch?

Idem dito.