Wenn Dann Farbe
23.02.2021 07:59:20
Lars
ich habe ein Problem mit meinem Programm.
Folgendes habe ich mir vorgestellt:
' If Range("A11:A40000").Value = _
' ("K123456" Or _
.
. (Viele Nummern)
.
' "K234567") Then
Dann soll in Spalte N abgefragt werden:
Wenn Zahl zwischen -5 und +5 dann grün
Wenn Zahl zwischen -10 bis -6 und +6 bis 10 dann gelb
Wenn Zahl kleiner -10 und großer +10 dann rot
Mein Problem ist, dass das Programm jede Zeile in N in grün macht.
Kann mir jemand dabei behilflich sein, dies zu lösen?
Folgend noch das ganze skript:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A11:A40000").Value = _
("K123456" Or _
"K234567" Or _
"K345678" Or _
"K456789") Then
Dim rngCell As Range
Dim bytColor1 As Byte
Dim bytcolor2 As Byte
Set Target = Intersect(Target, Range("N11:N40000"))
If Target Is Nothing Then Exit Sub
For Each rngCell In Target
If IsNumeric(rngCell.Value) Then
Select Case rngCell.Value
Case Is = 999
bytColor1 = 0 'Weis
bytcolor2 = 2 'weis
Case -5 To 5
bytColor1 = 4 ' Grün
bytcolor2 = 1 ' Schwarz
Case -10 To -6
bytColor1 = 6 ' Gelb
bytcolor2 = 1
Case 6 To 10
bytColor1 = 6
bytcolor2 = 1
Case Is 10
bytColor1 = 3
bytcolor2 = 1
End Select
rngCell.Interior.ColorIndex = bytColor1
rngCell.Font.ColorIndex = bytcolor2
End If
Next rngCell
End If
End Sub
Anzeige