Hallo liebe VBA Spezialisten,

ich habe ein Excel VBA Macro geschrieben, dass einfach nicht macht, was ich möchte.Eigentlich mach es leider gar nix.

Ich brauche für verschiedene Texte in einer Spalte verschiedene, aber definierte Farben. Wie viele verschieden Texte es am Ende sein werden steht noch nicht fest, es werden aber ganz sich mehr als zehn.

Hier mein Macro als Beispiel für die ersten vier Texte. Wie schon geschrieben sollte auch bei über zehn verschiedene Texten funktionieren.

Sub ColorCHANGEvalue()

    Dim cell As Range

    For Each cell In Range(Range("A:A"), Range("A:A").End(xlDown))
        If cell.Value = "q" Then
        BackColor = RGB(255, 255, 255)
    ElseIf cell.Value = "w" Then
        BackColor = RGB(255, 0, 0)
    ElseIf cell.Value = "i" Then
        BackColor = RGB(255, 151, 1)
    ElseIf cell.Value = "u" Then
        BackColor = RGB(1, 75, 1)
    End If
    Next
End Sub

Vielen Dank im Voraus für eure Mühe.

Gruss
Mike