Wenn Funktion farblich



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Wenn Funktion farblich
von: Irmi
Geschrieben am: 16.05.2002 - 10:01:05

Hallo zusammen,

ich möchte das Ergebnis einer wenn Funktion farblich gestalten.

z.B.

=WENN(D1=E1;"ok";"fehler")
Der Fehler soll in Rot erscheinen.
Ich möchte jedoch keine bedingte Format verwenden.

Kann mir jemand helfen? Vielen Dank schon einmal im Voraus.

Irmi


nach oben   nach unten

Re: Wenn Funktion farblich
von: Rainer
Geschrieben am: 16.05.2002 - 13:31:00

Liebe Irmi!

Mir ist auf die Schnelle nur der Umweg über VBA eingefallen.

Angenommen, deine Formeln stehen in den Zellen F1 bis F10. Kopiere folgenden Code in das Klassenmodul deiner Tabelle:


Private Sub Worksheet_Calculate()
Dim Zelle As Range

    For Each Zelle In Sheets(1).Range("F1:F10")
        With Zelle
            If .HasFormula And .Value = "OK" Then
                .Font.ColorIndex = 0
            Else
                .Font.ColorIndex = 3
            End If
        End With
    Next
End Sub

Mit der bedingten Formatierung geht das sicher einfacher.

Vielleicht hilft es dir.

Lieben Gruß
Rainer

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Wenn Funktion farblich"