Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B5:B10")) Is Nothing And Target.Count = 1 Then MsgBox "Test1"
If Not Intersect(Target, Range("C3")) Is Nothing And Target.Count = 1 Then MsgBox "Test2"
If Not Intersect(Target, Range("T3:U5")) Is Nothing And Target.Count = 1 Then MsgBox "Test3"
End Sub
Gruß Matthias