Begrenzung

Question

Hallo
Ich habe bis jetzt folgendes Makro das mir die aktive Zelle Farblich
markiert.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveSheet.Unprotect Password:="Test"
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 6   'gelb
ActiveSheet.Protect Password:="Test"
End Sub

Ich möchte erreichen das dies auf  einen Zellbereich begrenzt wird z.b nur
im Bereich B6:B11 und brauche eure Hilfe.


Schönen Sonntag noch
Hans

Answer 1

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.

Answer 2

Hallo  
Funktioniert einwandfrei :-)

Besten Dank an Mr. K.
Hans