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
|