Hallo ihr Lieben,
ich verzweifel gerade.
Ich möchte in Excel über Makros eine Ampel erstellen, wo man die Kreise jeweils nur anklicken muss, damit sie rot, gelb oder grün werden.
Wenn der Kreis weiß ist funktioniert das auch sehr gut mit dem Farbwechsel beim anklicken. Aber wie bekomme ich es hin, dass der Kreis bei erneutem anklicken wieder weiß wird? Bei erneutem Klicken bleibt er nämlich rot.
Hier mal der Code mit dem ich es versucht habe zu löse, allerdings klappt das nicht. Bin leider absoluter Anfänger in Sachen Makros aber brauche das für die Arbeit.
Vielen Dank im Voraus :)
Sub Test1()
' ' Test1 Makro '
'
ActiveSheet.Shapes.Range(Array("Flowchart: Connector 2")).Select
If (ForeColor = RGB(255, 0, 0)) Then
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorBackground1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
.Solid
End With
Else
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
.Solid
End With
End If
End Sub