Hi,
ich muss Mase recht geben. Ohne Beispielarbeitsmappe mit Beispieldaten wie Max Mustermann etc. ist es schwierig dir zu helfen. Eine Idee mit Hilfe von SVERWEIS. Code für Tabelle1:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C1:AG30")) Is Nothing Then
On Error Resume Next
farbe = Application.VLookup(Target.Value, Sheets("Tabelle2").Range("A1:B20"), 2, False)
If farbe > 0 Then
Target.Interior.Color = farbe
End If
End If
End Sub
Bei Eingabe eines Wertes wird dieser automatisch gefärbt, sofern verfügbar.
|