Hallo Hans,
das macht man mit der Funktion Intersect, welche prüft, ob sich zwei
Bereiche überschneiden.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("B6:B11")) Is Nothing Then
ActiveSheet.Unprotect Password:="Test"
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 6 'gelb
ActiveSheet.Protect Password:="Test"
End If
End Sub
Gruß Mr. K.