Könnte mir bitte jemand bei dem unteren Code weiterhelfen.
Es sollte bei "K" ColorIndex = 4, und bei "U" ColorIndex = 6 verwendet werden.
Nur läuft das mit "U" und "K" nicht richtig.
Hätte jemand eine Lösung zur Hand ?
Danke & Gruß Heinz
Private Sub Worksheet_calculate()
Dim Target1 As Range
For Each Target1 In Range("C6:G36,L6:P34,U6:Y36,AD6:AH35,AM6:AQ36,AV6:AZ35,BE6:BI36,BN6: _
BR36,BW6:CA35,CF6:CJ36,CO6:CS35,CX6:DB36")
If Not Target1 = "1U" Or Target1 = "2U" Or Target1 = "3U" Or Target1 = "SU" Then _
Target1.Interior.ColorIndex = 0
Select Case Target1
Case "1U"
Target1.Interior.ColorIndex = 4
Case "2U"
Target1.Interior.ColorIndex = 4
Case "3U"
Target1.Interior.ColorIndex = 4
Case "SU"
Target1.Interior.ColorIndex = 4
End Select
Next
Dim Target2 As Range
For Each Target2 In Range("C6:G36,L6:P34,U6:Y36,AD6:AH35,AM6:AQ36,AV6:AZ35,BE6:BI36,BN6: _
BR36,BW6:CA35,CF6:CJ36,CO6:CS35,CX6:DB36")
If Not Target2 = "1K" Or Target2 = "2K" Or Target2 = "3K" Or Target2 = "SK" Then _
Target2.Interior.ColorIndex = 0
Select Case Target2
Case "1K"
Target2.Interior.ColorIndex = 6
Case "2K"
Target2.Interior.ColorIndex = 6
Case "3K"
Target2.Interior.ColorIndex = 6
Case "SK"
Target2.Interior.ColorIndex = 6
End Select
Next
End Sub