|
Hi Sandra,
es ist leider nicht klar warum das ein Problem für dich ist, da wir deine Daten, welche in dem Bereich stehen, nicht sehen können.
Das Makro macht zumindest was es soll. ;)
Stolperstein könnte hier sein, dass du leere Zellen (ohne Inhalt) nicht berücksichtigen willst (die werden auch alle gelb gefärbt).
Der "Inhalt" dieser leeren Zellen wird in der Bedingung autom. in eine 0 umgewandelt (auto-cast) und darum sind diese dann auch gelb.
Es gibt in VB(A) übrigens auch ein switch - statement wie in C/C++. Nur heißt es hier Select-Case - statement.
Anders ist hier auch, dass man in VBA kein break braucht.
Option Explicit
Sub Farben()
Dim i As Long
For i = 4 To 35
Select Case Cells(i, 2).Value
Case Is = 0
Cells(i, 2).Interior.Color = vbYellow
Case Is > 0
Cells(i, 2).Interior.Color = vbGreen
Case Else
Cells(i, 2).Interior.Color = vbRed
End Select
Next
End Sub
|