Gruppe
Ereignis
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.
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