ich habe eine ZEitskala mit verschiedenen Balken erstellt. Die Zellen werden mittels bedingter Formatierung eingefärbt wenn bspw. Datumseinträge übereinstimmen.
Jetzt möchte ich, dass alle Zellen, die farbig sind eine "1" erhalten.
Sinn: Auswertung (Über-/Unterdeckung). Eine Formel in die Zelle selbst zu schreiben wäre für mich nur der aller letzte Ausweg, da die Tabelle dadurch zu umfangreich und fehleranfälliger wäre.
Folgenden Code habe ich funktioniert aber nicht mit Bedingter Formatierung:
Dim cell As Range
For Each cell In Range("AF22:AFE53")
If cell.Interior.Color = RGB(255, 0, 0) Then
cell = 1
Else
End If
Next cell
Hat jemand eine Lösung für das PRoblem, oder alternative Vorschläge?