Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Colorindex in Wennschleife

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
Anzeige
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
Anzeige
AW: so natürlich
28.06.2010 12:04:03
Ralf
Hallo Rudi,
hat prima geklappt. Vielen Dank
Gruß Ralf

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige