Colorindex in Wennschleife
Ralf
ich habe folgendes Problem. Ich habe in einer Wennschleife 5 Bedingungen die ich farblich unterschiedlich darstellen möchte. Habe im Forum ein Beispiel gefunden das aber nicht richtig funktioniert.
Die Farben ändern sich nicht wenn eine neue Bedingung aufgrund der Wennschleife eintritt. Nur wenn ich in der Formel was ändere (z.B. die erste Wennschleife von C3 auf C4) ändert sich die Farbe entsprechend des aktuellen Ergebnises der Wennschleife. Anbei die Wennformel und die VBA-Funktion
Viele Grüße Ralf
=WENN(C3="";"";WENN(I12>=89%;"i.O.";WENN(I12>=79%;"Beobachten";WENN(I12>=69%;"1. Mahnung"; _ WENN(I12>=59%;"2. Mahnung";"Ausschluss")))))
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("I4")) Is Nothing Then
Select Case Target.Value
Case "i.O.": Target.Interior.ColorIndex = 35
Case "Beobachten": Target.Interior.ColorIndex = 36
Case "1. Mahnung": Target.Interior.ColorIndex = 40
Case "2. Mahnung": Target.Interior.ColorIndex = 45
Case "Ausschluss": Target.Interior.ColorIndex = 3
Case Else: Target.Interior.ColorIndex = xlNone
End Select
End If
End Sub