Colorindex in Wennschleife

Forumthread: Colorindex in Wennschleife

Ralf

Hallo Zusammen,
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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Colorindex in Wennschleife

Rudi
so natürlich

Rudi
AW: so natürlich

Ralf

AW: Colorindex in Wennschleife

28.06.2010 11:40:21

Rudi

Hallo,
die Berechnung löst kein Change-Ereignis aus. Musst du im Calculate-Ereignis prüfen.

Private Sub Worksheet_Calculate()
Select Case Range("I4").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 Sub

Gruß
Rudi

so natürlich

28.06.2010 11:41:41

Rudi

Hallo,
die Berechnung löst kein Change-Ereignis aus. Musst du im Calculate-Ereignis prüfen.

Private Sub Worksheet_Calculate()
With Range("I4")
Select Case .Value
Case "i.O.": .Interior.ColorIndex = 35
Case "Beobachten": .Interior.ColorIndex = 36
Case "1. Mahnung": .Interior.ColorIndex = 40
Case "2. Mahnung": .Interior.ColorIndex = 45
Case "Ausschluss": .Interior.ColorIndex = 3
Case Else: .Interior.ColorIndex = xlNone
End Select
End With
End Sub

Gruß
Rudi

AW: so natürlich

28.06.2010 12:04:03

Ralf

Hallo Rudi,
hat prima geklappt. Vielen Dank
Gruß Ralf

Beliebteste Forumthreads (12 Monate)

Forumthread: Colorindex in Wennschleife

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread