Die Farbnummer einzelner Zellen können wie folgt ausgelesen werden:

Farbe = Worksheets("Blattname").Cells(Y, X).Interior.ColorIndex

Wichtig:

Beim Auslesen von Farben kann immer nur eine Zelle ausgelesen werden. Range funktioniert auch bei einer Range von einer Zelle nicht.

Die Variable die den Wert der Farbe enthalten soll muss als LONG deklariert sein. (Dim Farbe as Long)

Teilen