ich habe in meinem excel blatt eine bedingte formatierung eingerichtet da konnte ich noch zwei formatierungen hinzufügen.
was kann ich tun um noch mehr bedingte formatierungen hinzuzufügen
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim z As Range
For Each z In ActiveSheet.UsedRange
Select Case z
Case "K"
z.Interior.ColorIndex = 3
Case "R"
z.Interior.ColorIndex = 5
Case "F"
z.Interior.ColorIndex = 4
Case "O"
z.Interior.ColorIndex = 6
End Select
Next
End Sub