Zellfarbe anhand Bedingungen in VBA
guffels
ich habe den untenstehenden Code, um die Zellen abhängig von den Bedingungen zu färben.
Das Problem ist nun, dass z.B. für die Zellen E13 bis AA13 die Bedingung "GF" zutrifft und für die Zellen T13 bis Z13 die Bedingung "LZ".
Was zu dem Ergebnis führt, dass E13 bis S13 und A13 bis AA13 eingefärbt werden, dazwischen aber nicht. Ich kann damit Leben, dass man eine Art Hierachie bildet und die minderwertige Bedingung nicht angezeigt wird, aber dass die Felder weiß bleiben ist schlecht.
PS: Wie löscht man die Farben eigentlich?
Vielen Dank im Voraus!
Gruß Michael
Sub Farbe()
Dim C As Object
For Each C In Worksheets("Übersicht").Range("D13:GA122").Cells
C.Interior.ColorIndex = 2
C.Font.ColorIndex = 2
If C.Value = "RS" Then
C.Interior.ColorIndex = 33
C.Font.ColorIndex = 33
ElseIf C.Value = "RA" Then
C.Interior.ColorIndex = 32
C.Font.ColorIndex = 32
ElseIf C.Value = "LZ" Then
C.Interior.ColorIndex = 43
C.Font.ColorIndex = 43
ElseIf C.Value = "GF" Then
C.Interior.ColorIndex = 3
C.Font.ColorIndex = 3
ElseIf C.Value = "ZF" Then
C.Interior.ColorIndex = 6
C.Font.ColorIndex = 6
End If
Next
End Sub
Anzeige