Kleuren weergeven in excel blad per regel

[Jeof1980]

Ik zit met het volgende porbleem.

Navolgende code heb ik ingevoerd in de vba van Blad1 (Termijnbewaking)

Private Sub Worksheet_Change1(ByVal Target As Range)


For Each Cell In Range("AA12:AA" & Range("AA65536").End(xlUp).Row)
If Cell = "Dossiergesloten" Then
Range("A" & c.Row, "AA" & Cell.Row).Interior.ColorIndex = 24
ElseIf Cell = "Omgevingsvergunningvrij" Then
Range("A" & c.Row, "AA" & Cell.Row).Interior.ColorIndex = 33
ElseIf Cell = Date Then
Range("A" & c.Row, "AA" & Cell.Row).Interior.ColorIndex = 10
ElseIf Cell = "Actie aanvrager" Then
Range("A" & c.Row, "AA" & Cell.Row).Interior.ColorIndex = 27
ElseIf Cell = "Negatief advies" Then
Range("A" & c.Row, "AA" & Cell.Row).Interior.ColorIndex = 22
End If

End Sub

Het probleem is dat hij niet werkt. Weet iemand waar het probleem zit?

Ter verduidelijking in rij AA staan de gegevens op welke gecontroleerd wordt en de regel moet over de gehele lengte A tot AA ingekleurd worden.

Alvast bedankt

 

[Cobbe]

Range("A" & c.Row, "AA" & Cell.Row).[COLOR="red"][B]EntireRow.[/B][/COLOR]Interior.ColorIndex = 24

Om de hele rij te kleuren.
Voor de rest van de werking ware het best over een voorbeeldbestand te beschikken.

Cobbe

 

[ExcelAmateur]

Kijk eens of hij zo wel werkt.
Worksheet_Change1

Private Sub Worksheet_Change(ByVal Target As Range)
  For Each Cell In Range("AA12:AA" & Range("AA65536").End(xlUp).Row)
    If Cell = "Dossiergesloten" Then
      Range("A" & c.Row, "AA" & Cell.Row).Interior.ColorIndex = 24
    ElseIf Cell = "Omgevingsvergunningvrij" Then
      Range("A" & c.Row, "AA" & Cell.Row).Interior.ColorIndex = 33
    ElseIf Cell = Date Then
      Range("A" & c.Row, "AA" & Cell.Row).Interior.ColorIndex = 10
    ElseIf Cell = "Actie aanvrager" Then
      Range("A" & c.Row, "AA" & Cell.Row).Interior.ColorIndex = 27
    ElseIf Cell = "Negatief advies" Then
      Range("A" & c.Row, "AA" & Cell.Row).Interior.ColorIndex = 22
    End If
  Next
End Sub

De volgende keer graag de code selecteren en boven in het menu op # klikken. :thumb:

 

[Jeof1980]

Ik heb de code gecopieerd en hij geeft nu een compileerfout;

Een variable is niet gedefinieerd

Er wordt aangegeven dat ik Cell moet definieren

 

[Cobbe]

Private Sub Worksheet_Change(ByVal Target As Range)
  For Each Cell In Range("AA12:AA" & Range("AA65536").End(xlUp).Row)
    If Cell = "Dossiergesloten" Then
      Range("A" & c[B][COLOR="red"]ell[/COLOR][/B].Row, "AA" & Cell.Row).[COLOR="red"][B]EntireRow.[/B][/COLOR]Interior.ColorIndex = 24
    ElseIf Cell = "Omgevingsvergunningvrij" Then
      Range("A" & c[B][COLOR="red"]ell[/COLOR][/B].Row, "AA" & Cell.Row).[COLOR="red"][B]EntireRow.[/B][/COLOR]Interior.ColorIndex = 33
    ElseIf Cell = Date Then
      Range("A" & c[B][COLOR="red"]ell[/COLOR][/B].Row, "AA" & Cell.Row).[COLOR="red"][B]EntireRow.[/B][/COLOR]Interior.ColorIndex = 10
    ElseIf Cell = "Actie aanvrager" Then
      Range("A" & c[B][COLOR="red"]ell[/COLOR][/B].Row, "AA" & Cell.Row).[COLOR="red"][B]EntireRow.[/B][/COLOR]Interior.ColorIndex = 27
    ElseIf Cell = "Negatief advies" Then
      Range("A" & c[B][COLOR="red"]ell[/COLOR][/B].Row, "AA" & Cell.Row).[COLOR="red"][B]EntireRow.[/B][/COLOR]Interior.ColorIndex = 22
    End If
  Next
End Sub

Zou deze beter werken?

Cobbe

 

[Cobbe]

Range("A" & cell.Row, "AA" & Cell.Row).EntireRow.Interior.ColorIndex = 24
doet hetzelfde als
Range("A" & cell.Row).EntireRow.Interior.ColorIndex = 24

Cobbe