Hallo miteinander, 
ich habe gerade erst angefangen mich mit der Thematik VBA zu beschäftigen. In meiner Haushaltsliste habe ich 31 Labels zur Verfügung, die in Spalte 9 Worksheet 3 angegeben werden können. Ich bin bestrebt, dass die Farbkennung der Labels in der Spalte automatisiert wird und hoffe, mir kann jemand mit etwas Expertise helfen dies zu Codieren. Ich habe bisher noch keinen Erfolg verzeichnen können, was die Effektivität des Codes anbelangt. Ich habe 6 Gruppen von Elementen, die ich erstmal aufliste:

Gr.1: E1,E2,E3,EE1,EE2,EE3,EE4 (RGB(0, 128, 0)/Index Nr.10)
Gr.2: T1,T2,T3,T4,T5,TT1,TT2,TT3 (RGB(0, 204, 255)/Index Nr.28)
Gr.3: Z1,Z2,Z3 (RGB(153, 51, 0)/Index Nr.53)
Gr.4: U1,U2,U3 (RGB(153, 51, 102)/Index Nr.54)
Gr.5: K,TEC,NEC (RGB(51, 51, 51)/Index Nr.56)
Gr.6: STR,ENT,KUR,SOF,SER,ORG,RE (RGB(255, 0, 0)/Index Nr.3)

Ich habe einen gebrechlichen Anfang gewagt mit einem Loop ohne Dim oder Arrayparameter... Funktioniert leider nicht Ansatzweise und ich wäre Dankbar über den ein oder anderen Tip, was ich berücksichtigen muss und welche Formeln dazu angebracht sind.

Sub Geldhaushalt()
Do While Col(9).Value = Empty
    Select Case IsEmpty(ActiveCell)
    Case True
        Case Else
        Select Case ActiveCell.HasText
        Case True
            If ActiveCell.Text = "E1" Then
               ActiveCell.Interior.Color = RGB(0, 128, 0)
            ElseIf ActiveCell.Text = "NEC" Then
                ActiveCell.Interior.Color = RGB(51, 51, 51)
            Else
            ClearContents
                With Selection.Interior
                    .Pattern = xlNone
                    .TintAndShade = 0
                    .PatternTintAndShade = 0
                End With
            End If
        End Select
    End Select
Loop
End Sub