Hallo Micha,
ich hoffe, ich habe Dich richtig verstanden. Nachfolgender VBA-Code färbt Dir in dem Bereich, in dem die Daten stehen, entsprechend der Select Case-Anweisung die Zellhintergründe.
Kopiere den Code in das VBA-Projekt des Tabellenblatts, in dem die Anweisung wirken soll.
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngLastRow As Long
Dim intLastColumn As Integer
Dim rngCell As Range
lngLastRow = ActiveSheet.Cells.Find("*", searchdirection:=xlPrevious).Row
intLastColumn = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
For Each rngCell In Range(Cells(1, 1), Cells(lngLastRow, intLastColumn))
Select Case rngCell.Value
Case "A"
Cells(rngCell.Row, rngCell.Column).Interior.ColorIndex = 4
Case "B"
Cells(rngCell.Row, rngCell.Column).Interior.ColorIndex = 6
Case "C"
Cells(rngCell.Row, rngCell.Column).Interior.ColorIndex = 3
Case "D"
Cells(rngCell.Row, rngCell.Column).Interior.ColorIndex = 1
Cells(rngCell.Row, rngCell.Column).Font.ColorIndex = 2
Case Else
rngCell.Interior.ColorIndex = 0
End Select
Next
End Sub
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]