xlAtom Nr. 000012

20.08.2007 22:25:35 | Zellen unterschiedlich farbig <10, <20, <30 usw.

Zellen in der Spalte C werden unterschiedlich farbig unterlegt in Abhängigkeit von der Höhe des eingegeben Zahlenwertes. Folgendes in das Projekt des Tabellenblattes einfügen:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Column = 3 And Target.Row > 0 And Target.Row < 751 Then
        Select Case Target.Value
            Case Is < 10
                Target.Interior.ColorIndex = 0     'Zellen-Hintergrund "durchsichtig"
            Case Is < 20
                Target.Interior.ColorIndex = 3     'Zellen-Hintergrund "Rot"
            Case Is < 30
                Target.Interior.ColorIndex = 4     'Zellen-Hintergrund "Hellgrün"
            Case Is < 40
                Target.Interior.ColorIndex = 5     'Zellen-Hintergrund "Dunkelblau"
            Case Is < 50
                Target.Interior.ColorIndex = 6     'Zellen-Hintergrund "Gelb"
            Case Is < 70
                Target.Interior.ColorIndex = 7     'Zellen-Hintergrund "Violett"
            Case Is > 70
                Target.Interior.ColorIndex = 20   'Zellen-Hintergrund "Zart Hellblau"
        End Select
    End If
End Sub

Gruppe: VBA/Makros | Ideengeber: Lenhard (Forum-Archiv-Schnipsel neu durchdacht) | Name: Lenhard Klimek