Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Dim bereich As Object
Dim Zelle As Range
Set bereich = Worksheets(Sh.Name).Range("B3:AF29")
If Not Intersect(bereich, Target) Is Nothing Then
Select Case Target.Value
Case "HO"
Target.Interior.Color = RGB(255, 87, 87)
Case "OP", "Op,", "op"
Target.Interior.Color = RGB(97, 214, 255)
Case "EU", "Eu", "eu"
Target.Interior.Color = RGB(105, 255, 105)
Case "RU", "Ru", "ru"
Target.Interior.Color = RGB(0, 205, 0)
Case Else
End Select
End If
End Sub