VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Hintergrundfarbe in Abhängigkeit des Zellwertes

Gruppe

Feature

Bereich

Bedingt

Thema

Hintergrundfarbe in Abhängigkeit des Zellwertes

Problem

Die Hintergrundfarbe eines Prozentbereiches soll in Abhängigkeit des jeweiligen Wertes gewählt werden.

Lösung

Darstellung nur anhand einer Beispielarbeitsmappe möglich.




ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim vRow As Variant
   If Target.Column <> 1 Then Exit Sub
   If Target.Cells.Count > 1 Then
      If WorksheetFunction.CountA(Target) = 0 Then
         Target.Interior.ColorIndex = xlColorIndexNone
         Exit Sub
      Else
         Exit Sub
      End If
   End If
   With Worksheets("Colors")
      If IsEmpty(Target) Then
         Target.Interior.ColorIndex = xlColorIndexNone
      Else
         vRow = Application.Match(Target.Value, .Columns(1), 0)
         If Not IsError(vRow) Then
            Target.Interior.ColorIndex = .Cells(vRow, 1).Interior.ColorIndex
         Else
            Target.Interior.ColorIndex = xlColorIndexNone
         End If
      End If
   End With
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Feature und Bedingt