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
|