bed. formatierung vba-problem
05.10.2003 20:23:10
hisEXCELlence
Habe (von Hajo's Excel - Server -danke ) den bedingte-Formatierungs-Code für meine Bedürfnisse angepasst. Das ganze funktioniert soweit auch ganz gut (wenn man in die K-Spalte direkt die Werte "228,3" etc. eingibt. Das Problem besteht nun darin, dass die Werte 228,5 229,3 etc. nicht direkt in die Spalte K eingegeben werden, sondern sich in dieser Spalte eine recht aufwändige WENN Funktion befindet. WENN......;"228,5";wenn....;"229,3" usw.
Wie kann ich das Makro so umändern dass es erkennt, was in der Spalte K AUSGEGEBEN wird ?!
Wäre nett wenn ihr mir helfen könntet, einen schönen Sonntag noch und viele Grüße,
Rüdiger
So sieht das Makro zur Zeit aus:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("K4:K1000")
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
Select Case UCase(RaZelle.Value)
Case "228,3"
Rows(Target.Row).Interior.ColorIndex = 38
' schwarz
Case "228,5"
Rows(Target.Row).Interior.ColorIndex = 45
' weiß
Case "229,1"
Rows(Target.Row).Interior.ColorIndex = 37
' rot
Case "229,3"
Rows(Target.Row).Interior.ColorIndex = 6
' grün
Case "229,5"
Rows(Target.Row).Interior.ColorIndex = 40
' blau
Case Else
RaZelle.Interior.ColorIndex = xlNone
End Select
End If
Next RaZelle
' ActiveSheet.protect
Set RaBereich = Nothing
End Sub