Farbe wechseln
René
habe in meinem Tabellenblatt eine Ampel und drei Button zum Auswählen Rot Gelb Grün.
Könnte man das eventuell auf eine Schaltfläche zusammenfassen so das bei jedem Anklicken die Farbe wechselt?
MfG René
Sub Ampelblatt_Schaltfläche1_Klicken()
ActiveSheet.Shapes.Range(Array("Oval 12")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(192, 0, 0)
.Transparency = 0
.Solid
ActiveSheet.Shapes.Range(Array("Oval 11")).Select
Selection.ShapeRange.Fill.Visible = msoFalse
ActiveSheet.Shapes.Range(Array("Oval 10")).Select
Selection.ShapeRange.Fill.Visible = msoFalse
Range("A1").Select
End With
End Sub
Sub Ampelblatt_Schaltfläche2_Klicken()
ActiveSheet.Shapes.Range(Array("Oval 10")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 255, 0)
.Solid
End With
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 128, 0)
.Transparency = 0
.Solid
ActiveSheet.Shapes.Range(Array("Oval 12")).Select
Selection.ShapeRange.Fill.Visible = msoFalse
ActiveSheet.Shapes.Range(Array("Oval 11")).Select
Selection.ShapeRange.Fill.Visible = msoFalse
Range("A1").Select
End With
End Sub
Sub Ampelblatt_Schaltfläche3_Klicken()
ActiveSheet.Shapes.Range(Array("Oval 11")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 192, 0)
.Transparency = 0
.Solid
ActiveSheet.Shapes.Range(Array("Oval 10")).Select
Selection.ShapeRange.Fill.Visible = msoFalse
ActiveSheet.Shapes.Range(Array("Oval 12")).Select
Selection.ShapeRange.Fill.Visible = msoFalse
Range("A1").Select
End With
End Sub
Anzeige