Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zellhintergrund in Abhängigkeit von Zelleintrag festlegen.

Gruppe

BeforeSave

Problem

Bei Eintragungen in Zelle A1 bzw. A2 sollen die Folgezellen in Spalte A mit einem roten (r) oder gelben (g) Hintergrund belegt werden. Lösung A über das Change-Ereignis, B über die bedingte Formatierung.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("A1:A2")) Is Nothing Then Exit Sub
   If IsEmpty(Range("A1")) Or IsEmpty(Range("A2")) Then Exit Sub
   Columns(1).Interior.ColorIndex = xlNone
   Select Case Range("A2").Value
      Case "g"
         Range(Cells(3, 1), Cells(Range("A1").Value + 2, 1)) _
            .Interior.ColorIndex = 6
      Case "r"
         Range(Cells(3, 1), Cells(Range("A1").Value + 2, 1)) _
            .Interior.ColorIndex = 3
   End Select
End Sub