|
Hallo! Falls du nochmal schaust, hier eine Änderung. War noch ein Fehler drin. Der macht sich bemerkbar, wenn du einen Bereich einfügst, der zum Teil drin und draußen liegt. Dann passierte nix. Ist jetzt geändert. VG
Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Dim bereich, Zelle As Range
Set bereich = Worksheets(Sh.Name).Range("B3:AF29")
For Each Zelle In Target
If Not Intersect(bereich, Zelle) Is Nothing Then
Select Case Zelle.Value
Case "HO"
Zelle.Interior.Color = RGB(255, 87, 87)
Case "OP", "Op,", "op"
Zelle.Interior.Color = RGB(97, 214, 255)
Case "EU", "Eu", "eu"
Zelle.Interior.Color = RGB(105, 255, 105)
Case "RU", "Ru", "ru"
Zelle.Interior.Color = RGB(0, 205, 0)
Case Else
End Select
End If
Next Zelle
End Sub
|