Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Hintergrundfarbe nach Farbindex-Liste festlegen

Gruppe

Change

Problem

Bei Eingaben in Spalte A soll - wenn der Eingabewert in Spalte B von Tabelle FarbIndex gefunden wird - der Zellhintergrund mit dem dort festgelegten Farbindex hinterlegt werden.

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

ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim var As Variant
   If Target.Column <> 1 Then Exit Sub
   With Worksheets("FarbIndex")
      var = Application.Match(Target.Value, .Columns(1), 0)
      If Not IsError(var) Then
         Target.Interior.ColorIndex = .Cells(var, 2)
      End If
   End With
End Sub