Bedingte Formatierung für 6 Zustände mit VBA

Hallo Leute!
Bräuchte bitte eure Hilfe
Ich habe schon selber rum probiert aber das wird so nichts.
Ich habe 6 verschiedene Zustände die wären 1,2,3,4,5,6. Jedem dieser Zustände soll eine andere Hintergrundfarbe und Schriftfarbe zugeordnet werden (die gleiche Farbe damit man die schrift nicht sieht).
Ich bräuchte nun einen Code der mir das für einen gewissen Bereich (D7:IV755), ohne das ich das bei jedem öffnen einschalten muss (automatisch) mit folgenden Farben bewerkstelligen kann.
1 = gelbbraun
2 = helles orange
3 = braun
4 = blass blau
5 = hellblau
6 = dunkelblau
schriftfarbe und hintergrundfarbe sollte dieselbe sein
Wäre echt super wenn mir hier wer helfen könnte ich komm da einfach nicht klar.
BITTE DANKE
schöne grüße aus Kärnten
steifinga

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D7:IV755")) Is Nothing Then With Target Select Case .Value ' Beispiele Case Is < 10 'Zustand 1 .Font.ColorIndex = 40 .Interior.ColorIndex = 40 Case 10 To 20 'Zustand 2 .Font.ColorIndex = 45 .Interior.ColorIndex = 45 Case 21 To 30 'Zustand 3 .Font.ColorIndex = 53 .Interior.ColorIndex = 53 Case 31 To 40 'Zustand 4 .Font.ColorIndex = 37 .Interior.ColorIndex = 37 Case 41 To 100 'Zustand 5 .Font.ColorIndex = 41 .Interior.ColorIndex = 41 Case 101 To 1000 'Zustand 6 .Font.ColorIndex = 11 .Interior.ColorIndex = 11 Case Else 'Zustand sonst .Font.ColorIndex = 0 .Interior.ColorIndex = 0 End Select End With End If End Sub

DANKE UweD und Hajo_Zi
Ich konnte mir jetz der Antwort von Uwe und der Beispiel Datei von Hajo_Zi das passende zusammenstoppeln.
::::
Option Explicit
'Mit unterstützung von www.herber.de Hajo_Zi und UweD


Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("D7:IV755")
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
With RaZelle
Select Case UCase(.Value)
Case "1"
.Interior.Color = RGB(255, 204, 153)
.Font.Color = RGB(255, 204, 153)
Case "2"
.Interior.Color = RGB(255, 153, 0)
.Font.Color = RGB(255, 153, 0)
Case "3"
.Interior.Color = RGB(153, 51, 0)
.Font.Color = RGB(153, 51, 0)
Case "4"
.Interior.Color = RGB(153, 204, 255)
.Font.Color = RGB(153, 204, 255)
Case "5"
.Interior.Color = RGB(51, 102, 255)
.Font.Color = RGB(51, 102, 255)
Case "6"
.Interior.Color = RGB(0, 0, 128)
.Font.Color = RGB(0, 0, 128)
Case ""
.Interior.ColorIndex = 0
.Font.ColorIndex = 0
End Select
End With
End If
Next RaZelle
Set RaBereich = Nothing
End Sub

:::
DANKE für die schnelle und kompetente Hilfe
Viele Grüße aus Kärnten

Beliebteste Forumthreads (12 Monate)

Bedingte Formatierung für 6 Zustände mit VBA

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bedingte Formatierung für 6 Zustände mit VBA

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread