Farbänderung zwischen rot/grün bei Klick auf Kreis

Bild

Betrifft: Farbänderung zwischen rot/grün bei Klick auf Kreis
von: Salvadore
Geschrieben am: 19.10.2015 11:46:21

Hallo Gemeinde!
Ich habe 10 Kreise im Excel erstellt.
Ist es möglich mit VBA was zu programmieren, dass wenn man auf den Kreis klickt, er sich rot füllt und wenn man auf den Kreis nochmal klickt, er sich mit grün füllt?
Das Prinzip sollte für alle 10 Kreise das Gleiche sein.
Die Profi-Variante wäre aber:
Man hat zwei Buttons mit rot & grün. Klickt man auf Rot, füllt sich der erste Kreis mit Rot, klickt man auf Grün, füllt sich der !zweite! Kreis mit Grün usw. Der Dritte Kreis sollte sich also mit der jeweiligen Farbe füllen, welchen Button man drückt. Also einmal gedrückt, ist der Button gefüllt und der nächste Klick zählt für den Nächsten Kreis.
Mir würde aber schon die erste Variante reichen =)
Vielen Dank!

Bild

Betrifft: AW: Farbänderung zwischen rot/grün bei Klick auf Kreis
von: Salvadore
Geschrieben am: 19.10.2015 11:48:40
Beim letzten Satz gehört Statt Button, Kreis.
Der Dritte Kreis sollte sich also mit der jeweiligen Farbe füllen, welchen Button man drückt. Also einmal gedrückt, ist der Kreis gefüllt und der nächste Klick zählt für den Nächsten Kreis.

Bild

Betrifft: Farbänderung zwischen rot/grün bei Klick auf Kreis
von: Rudi Maintaire
Geschrieben am: 19.10.2015 12:10:37
Hallo,
allen Kreisen zuordnen:

Sub KreisKlick()
  Dim s
  Set s = ActiveSheet.Shapes(Application.Caller)
  If s.Fill.ForeColor.RGB = 255 Then
    s.Fill.ForeColor.RGB = 5287936
  Else
    s.Fill.ForeColor.RGB = 255
  End If
End Sub

Gruß
Rudi

Bild

Betrifft: AW: Farbänderung zwischen rot/grün bei Klick auf Kreis
von: Salvadore
Geschrieben am: 19.10.2015 12:19:08
Danke! Diese Variante reicht mir!
Vielen Dank für die schnelle hilfe!

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Farbänderung zwischen rot/grün bei Klick auf Kreis"