folgendes Problem:
Ich habe bereits folgendes Makro geschrieben, dass meine Formen in vier verschiedenen Farben _
durch Klick erscheinen lässt:
Sub Umfarben()
Dim Farbe(0 To 4)
Farbe(0) = RGB(242, 242, 242)
Farbe(1) = vbGreen
Farbe(2) = vbYellow
Farbe(3) = vbRed
Farbe(4) = RGB(166, 166, 166)
With ActiveSheet.Shapes(Application.Caller).Fill.ForeColor
Select Case .RGB
Case Farbe(0): .RGB = Farbe(1)
Case Farbe(1): .RGB = Farbe(2)
Case Farbe(2): .RGB = Farbe(3)
Case Farbe(3): .RGB = Farbe(4)
Case Farbe(4): .RGB = Farbe(0)
Case Else: .RGB = Farbe(0)
End Select
End With
End Sub
Ich möchte nun noch einfügen, dass wenn die Formen die Farbe(1) einnehmen in einer Zelle die Zahl 1 erscheint und bis Farbe (4) die Zahl 4, um weitere Verbindungen durch Formeln herzustellen.
Jemand eine Idee, wie das geht?
Vielen Dank im Voraus :)!