Visual Basic Forum

akalien · Newbie Anmeldedatum: 01.07.2010 Beiträge: 1

Ich habe folgenden Code und möchte dass z.B. im Fall wo die Hintergrundfarbe schwarz (hier zwischen 80 und 89 sowie 180 und 189) ist dass die Schriftfarbe dann weiss ist, jedoch bekomme ich das nicht hin.

Kann mir da villeicht jemand helfen.

Danke

Private Sub Worksheet_Change(ByVal Target As Range)
Set I = Intersect(Target, Range("A6:O66"))
If Not I Is Nothing Then
Select Case Target
Case 10 To 19: NewColor = 3
Case 110 To 119: NewColor = 3
Case 20 To 29: NewColor = 8
Case 120 To 129: NewColor = 8
Case 30 To 39: NewColor = 4
Case 130 To 139: NewColor = 4
Case 40 To 49: NewColor = 5
Case 140 To 149: NewColor = 5
Case 50 To 59: NewColor = 27
Case 150 To 159: NewColor = 27
Case 60 To 69: NewColor = 45
Case 160 To 169: NewColor = 45
Case 70 To 79: NewColor = 1
Case 170 To 179: NewColor = 1
Case 80 To 89: NewColor = 15
Case 180 To 189: NewColor = 15
Case 90 To 99: NewColor = 26
Case 190 To 199: NewColor = 26
End Select
Target.Interior.ColorIndex = NewColor
End If
End Sub
_________________