Hilfe bei VBA bedingte Formatierung
strodti
ich habe einen Code für mehr als 3 Bedingungen, mit dem ich bisher arbeite. Die Formatierung erfolgt erst bei Eingabe, was mir bisher reichte. Wie muss ich den Code ändern, damit bereits bestehende Einträge entsprechend formatiert werden? Habe bereits im Netz gesucht, aber richtig schlau geworden bin ich bisher leider nicht.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range
Dim bytColor As Byte
'Bereich der überwacht wird
Set Target = Intersect(Target, Range("H4:H50"))
If Target Is Nothing Then Exit Sub
For Each rngCell In Target
Select Case rngCell.Value
Case "2011"
bytColor = 3
Case "2012"
bytColor = 4
Case "2013"
bytColor = 6
Case "2014"
bytColor = 7
Case "2015"
bytColor = 8
Case "2016"
bytColor = 44
Case Else
bytColor = 0
End Select
rngCell.Interior.ColorIndex = bytColor
Next rngCell
End Sub
Gruß
Tobias