ich habe 3 Ovale in meinem Tabellenblatt.
2 von 3 haben einen Farbwechsel von grün auf rot und umgekehrt, wenn diese angeklickt werden. Sowas in der Art hab ich gefunden und funktioniert auch.
Sub Farbwechsel()
With ActiveSheet.Shapes(Application.Caller).Fill.ForeColor
If .RGB RGB(50, 205, 50) Then 'wenn farbe nicht grün
.RGB = RGB(50, 205, 50) 'dann mach es grün
Else
.RGB = RGB(255, 0, 0) 'ansonsten mach es rot
End If
End With
End Sub
Nun soll das 3. Oval, nur wenn beide anderen auf grün stehen, auch grün werden.
Andernfalls soll es rot sein/bleiben. Das soll als 2. Makro hinzukommen und nicht
im bestehenden Code integriert werden.
Kann mir da jemand helfen? :)
Danke für eure Hilfe ;)