Actieve cel in een Sudoku kleuren.

[Zerty]

Ik probeer een Sudoku bestand wat op te frissen maar stuit op een foutmelding.
Graag had ik de actieve cel in een andere kleur (20) gehad.
Daarbij zou ik graag zowel de horizontale en verticale rij die het kruispunt van de actieve cel zijn, in nog een ander kleur (15) hebben binnen het rooster.
Bij het verlaten, de cel terug in de originele kleur (8) herstellen.

Ik heb al een stukje code gevonden, die enkel de actieve Cel een ander kleur heeft,
maar bij het vernieuwen van de Puzzel krijg ik steeds een foutmelding.

 

[JeanPaul28]

Kan je hier verder mee

 

[Zerty]

Dit werkt totdat men op de knop Nieuwe Puzzel drukt, dan komt de foutmelding

 

[VenA]

Iets uitgebreider

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  ActiveSheet.Unprotect
  Range("B2:J10").Interior.ColorIndex = 20
  If Intersect(Target, Range("B2:J10")) Is Nothing Then Exit Sub
  Cells(Target.Row, 2).Resize(, 9).Interior.ColorIndex = 8
  Cells(2, Target.Column).Resize(9).Interior.ColorIndex = 8
  Target.Interior.ColorIndex = 15
  ActiveSheet.Protect
End Sub

 

[Zerty]

Werkt perfect, dank je wel.