Einfärben der if()-Bedingung in Excel

Question

Hallo an die Community,

Nehmen wir an, ich möchte in eine Zelle einer Excel-Datei die folgende Formel eingeben

wenn(a1>a2,"test1","test2")

Ich möchte erreichen, dass die Schriftarten von Test1 und Test2 unterschiedliche Farben haben.

Eine Möglichkeit besteht darin, bedingte Formatierung zu verwenden und verschiedene Regeln anzuwenden. Ich frage mich jedoch, ob es einen alternativen - direkteren - Ansatz gibt, indem man die Schriftfarbe direkt in der if()Formel angibt oder indem manVBA

Dank im Voraus

Answer 1

Mit VBA ist das möglich. Ich nehme an, Ihre Formel steht in Zelle B1

Drücken Sie in Ihrem Excel-Arbeitsblatt ALT+ , F11um auf den VBA-Editor zuzugreifen.

Wählen Sie Ihr Blatt im linken Bereich aus. Wählen Sie im Codefenster auf der rechten SeiteArbeitsblattaus der Dropdown-Liste und wählen Sie dannÄndernEreignis aus der nachfolgenden Dropdown-Liste.

Darin sollen folgende Platzhalter für das Unterprogramm vorhanden sein:

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Fügen Sie den folgenden Code dort ein.

If Target.Address = "$A$1" Or Target.Address = "$A$2" Then
  If Range("B1").Formula = "=IF(A1>A2,""test1"",""test2"")" Then

        If Range("A1").Value > Range("A2").Value Then
            Range("B1").Font.Color = vbRed
        Else
            Range("B1").Font.Color = vbGreen
        End If

  End If
End If

Im obigen Beispiel habe ich die Standardeinstellungen vbRed und vbGreen verwendet. Treffen Sie Ihre Auswahl nach Wunsch.