Excel: Macro probleem

[bakkerbg]

Beste Mensen,

Ik zit op mijn werk met een probleem waar ik maar niet uit kom.

Ik heb een macro geschreven die waardes checkt en als de waarde overeenkomen de gehele kolom selecteren en kleuren.

Echt verspringt die waarde, dan blijft die vorige kolom gekleurd, en dat is juist net niet wat ik wil hebben. Ik wil dat hoe vaak ik die waardes ook verander steeds maar één kolom gekleurd is.

Hieronder de code:

Sub datumcheck()


Dim cell1 As Range

For Each cell1 In Blad4.Range("A13:PQ13")
Select Case cell1

Case Is = Blad4.Range("q7")
cell1.EntireColumn.Interior.ColorIndex = 3

Case Else



End Select
Next

End Sub

Wie o wie kan mij hiermee helpen?

Mijn dank is groot!

 

[Cobbe]

Zet de code in een change_event:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim cell1 As Range

For Each cell1 In Blad4.Range("A13:PQ13")
Select Case cell1
Case Is = Blad4.Range("q7")
cell1.EntireColumn.Interior.ColorIndex = 3
Case Else
cell1.EntireColumn.Interior.ColorIndex = xlNone
End Select
Next
End Sub

 

[bakkerbg]

Werkt perfect! Mijn dank is groot!