Bedingte Formatierung

Martin · 2006-02-26T16:42:28+00:00

Hallo Zusammen In Excel 2003 gibt es die Bedingte Formatierung, leider kann man nur drei Bedingungen eingeben. Ich sollte aber 10 verschiedene Bedingungen eingeben die sich farbig unterscheiden und zwar für folgende Werte: 0-999 1000-1999 2000-2999 3000-3999 4000-4999 5000-5999 6000-6999 7000-7999 8000-8999 9000-9999 die Farben sind absolut egal, sollten sich aber voneinander unterscheiden. Wäre sehr froh, wenn mir jemand helfen könnte! Schon zum voraus besten Dank. Martin

Hallo Martin,
als Muster:
Sub Werte_Farben()
'https://www.herber.de/forum/archiv/312to316/t313260.htm
'Also mein Vorhaben ist folgendes:
'ich habe in z.B. in der Spalte K den Zellen K6 bis K35 einen Zahlenwert zugewiesen.
'Jetzt soll allerdings ab einem bestimmten Zahlenwert die Zelle mit einer Farbe ausgefüllt werden. Das ganze kann man sich so vorstellen:
'ab dem Wert 25 = Zellenfarbe gelb
'ab dem Wert 50 = Zellenfarbe rot
'ab dem Wert 100 = Zellenfarbe blau
'ab dem Wert 200 = Zellenfarbe grün
'


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 And Target.Row > 5 And Target.Row < 36 Then 'Spalte K und Zeile von 5 bis 35
If Target.Value <= 25 Then Target.Interior.ColorIndex = 0
If Target.Value > 25 Then Target.Interior.ColorIndex = 6
If Target.Value > 50 Then Target.Interior.ColorIndex = 3
If Target.Value > 100 Then Target.Interior.ColorIndex = 5
If Target.Value > 200 Then Target.Interior.ColorIndex = 4
End If
End Sub

mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
Private Tippgemeinschaft für Lotto oder KENO: http://www.kenostrategen.de

Hi Martin,
mit dem Makro farben kannst du die Farbnummern ermitteln.
Den anderen Code dorthinein:
Alt+F11, Doppelklick links auf Tabelle1 bzw den Blattnamen der überwacht werden soll

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("G6:G105")) Is Nothing Then
Select Case Target.Value
Case Is < 1000
Target.Interior.ColorIndex = 34
Case Is < 2000
Target.Interior.ColorIndex = 3
Case Is < 3000
Target.Interior.ColorIndex = 5
Case Is < 4000
Target.Interior.ColorIndex = 17
Case Is < 5000
Target.Interior.ColorIndex = 4
Case Is < 6000
Target.Interior.ColorIndex = 7
Case Is < 7000
Target.Interior.ColorIndex = 8
Case Is < 8000
Target.Interior.ColorIndex = 50
Case Is < 9000
Target.Interior.ColorIndex = 30
Case Is < 10000
Target.Interior.ColorIndex = 31
Case Else
Target.Interior.ColorIndex = 0
End Select
End If
End Sub
Sub farben()
Dim n
For n = 1 To 56
Cells(n, 1) = n
Cells(n, 2).Interior.ColorIndex = n
Next n
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..

Forumthread: Bedingte Formatierung

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Bedingte Formatierung

Forumthread: Bedingte Formatierung

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread