Hallo die Fachleute,
gibt es eine Funktion oder Formel für folgendes Problem
Beispiel: wenn Zelle A1 mit Farbe rot formatiert ist, dann soll Zelle D1 den Wert 1 ausgeben
Ich hoffe Ihr habt verstanden
Andi
Hallo Andreas,
ich habe verstanden 
Hoffentlich hilft Dir dieses zusammengeschusterte Makro etwas weiter:
Sub FarbeErkennen()
Dim c As Range
Set c = [A1]
If c.Interior.ColorIndex = 3 Then
[D1] = 1
Else
[D1] = ""
End If
End Sub
gruss
moritzbock
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]