vereenvoudiging code

[lento]

For i = 1 To 30 Step 1
        For j = 1 To 84 Step 1
        If Cells(i + 1, j).Interior.ColorIndex = xlNone Then
            If Cells(i, j) = "X" Then
              Cells(i + 1, j + 1).Interior.ColorIndex = 3
              Cells(i - 1, j - 1).Interior.ColorIndex = 3
              Cells(i, j + 1).Interior.ColorIndex = 3
              Cells(i + 1, j).Interior.ColorIndex = 3
              Cells(i + 1, j - 1).Interior.ColorIndex = 3
              Cells(i - 1, j + 1).Interior.ColorIndex = 3
              Cells(i - 1, j).Interior.ColorIndex = 3
              Cells(i, j - 1).Interior.ColorIndex = 3
              Cells(i + 2, j + 2).Interior.ColorIndex = 3
              Cells(i - 2, j - 2).Interior.ColorIndex = 3
              Cells(i, j + 2).Interior.ColorIndex = 3
              Cells(i + 2, j).Interior.ColorIndex = 3
              Cells(i + 2, j - 2).Interior.ColorIndex = 3
              Cells(i - 2, j + 2).Interior.ColorIndex = 3
              Cells(i - 2, j).Interior.ColorIndex = 3
              Cells(i, j - 2).Interior.ColorIndex = 3
              Cells(i + 1, j + 2).Interior.ColorIndex = 3
              Cells(i + 1, j - 2).Interior.ColorIndex = 3
              Cells(i + 2, j + 1).Interior.ColorIndex = 3
              Cells(i + 2, j - 1).Interior.ColorIndex = 3
              Cells(i - 1, j + 2).Interior.ColorIndex = 3
              Cells(i - 1, j - 2).Interior.ColorIndex = 3
              Cells(i - 2, j + 1).Interior.ColorIndex = 3
              Cells(i - 2, j - 1).Interior.ColorIndex = 3
              Else: chb1.Value = False
            End If
            
        End If
        Next j
    Next i

Is er een manier om dit korter te maken ?

 

[VenA]

iets in deze vorm?

For Each cl In Cells(3, 3).Resize(30, 84)
    If cl.Offset(1).Interior.ColorIndex = xlNone And cl.Value = "X" Then cl.Offset(-2, -2).Resize(4, 4).Interior.ColorIndex = 3
  Next cl

 

[snb]

Lijkt me typisch iets voor voorwaardelijke opmaak.

 

[lento]

zoiets inderdaad. Het is een hele hoop dat ik moest typen, maar op jou manier gaat het makkelijker.
Danku!