Funktion wird nur bei Eingabe ausgeführt...
24.09.2004 11:12:32
Ulrich
ich will per VBA-Zellen einfärben und habe folgende Funktion im Netz gefunden. Allerdings werden die Zellen nur eingefärbt, wenn ich einen Wert eintrage. Es stehen aber schon Werte in den Zellen, die von dieser Funktion ignoriert werden.
Wie kann ich die Funktion verändern, dass quasi laufend die gesamte Spalte "aktualisiert" wird...?
Private Sub Worksheet_Change(ByVal Target As Range)
' Conditional Formatting for more than 3 conditions
Dim rng As Range
Set rng = Intersect(Target, Range("B:B"))
If rng Is Nothing Then
Exit Sub
Else
Dim cl As Range
For Each cl In rng
Select Case cl.Text
Case "1"
cl.Interior.ColorIndex = 5
Case "2"
cl.Interior.ColorIndex = 50
Case "3"
cl.Interior.ColorIndex = 47
Case "D"
cl.Interior.ColorIndex = 16
Case "E"
' etc.
Case Else
Exit Sub
End Select
Next cl
End If
End Sub
Anzeige