Bedingete Formatierung

[michel34497]

Hallo Leute,
Ich möchte gerne mit der Bedingten Formatierung eine Schriftfarbe auslesen aus mehren Zellen in einer Spalte auslesen
zur Zeit mache ich das über einen VBA Code


For X = 2 To letztezeile
    If .Sheets("Data").Cells(X, 1).Font.ColorIndex = 14 Then
    'grün
            If .Sheets("Data").Range("B200") < "2" Then .Sheets("Data").Range("B200") = "1"
        ElseIf .Sheets("Data").Cells(X, 1).Font.ColorIndex = 45 Then
        'gelb
            .Sheets("Data").Range("B200") = "2"
                ElseIf .Sheets("Data").Cells(X, 1).Font.ColorIndex = 3 Then
                'Rot
                    .Sheets("Data").Range("B200") = "3"
                        Exit For
    End If

Nun möchte ich das gerne über eine Bedingte Formatierung machen!
Wie bekomme ich das hin?

[steve1da]

Hola,
die bedingte Formatierung kann keine Farben auslesen.
Gruß,
steve1da

[schauan]

Hallöchen,

oder doch ....

MsgBox Cells(1, 1).DisplayFormat.Font.ColorIndex

[HKindler]

Und wie schreibst du das in eine bed.Form.?

[schauan]

Hallöchen,

der code liest im Gegensatz zum ursprünglichen statt der eingestellten Schriftfarbe die der bedingt formatierten aus
Geht mit der Zellfarbe im Prinzip genau so.
Den Code in eine Funktion packen und die Funktion dann in die bf.

Das ABER wäre halt, dass die Funktion nur wirkt, wenn eine Änderung des Zellinhaltes erfolgt und nicht bei einer Farbänderung. Oder man drückt F9. Hier mal ein Beispiel anhand der Zellfarbe.

	A	B
1

Zelle	bedingte Formatierung...	Format
B1	1: zf(A1)=1	abc

Public Function zf(zelle As Range)
zf = zelle.Interior.ColorIndex
End Function

Die Frage wäre natürlich, ob der TE generell auf VBA verzichten wollte ...