Hallo.
Bei mir wirds immer nur gelb angezeigt. Könnte mir bitte jemand helfen!
Sub Farben()
Dim i As Integer
For i = 4 To 35
If Cells(i, 2).Value = 0 Then
Cells(i, 2).Interior.Color = vbYellow
ElseIf Cells(i, 2).Value > 0 Then
Cells(i, 2).Interior.Color = vbGreen
Else
Cells(i, 2).Interior.Color = vbRed
End If
Next
End Sub
Ps.:Nicht wundern bin Anfängern, habe bislang nur C++ programmiert xD.
|