"Wenn-und" in VBA

Hi Franz

If Range("H7").Interior.Color = vbGreen And _
  WorksheetFunction.Sum(Range("R5:R10")) > 10 Then
    MsgBox "Dann-Bereich"
Else
  MsgBox "Sonst Bereich"
End If

Bei der Farbe könnte man auch Range("H7").Interior.ColorIndex = 10 oder andere Zahlen schreiben. Welche Farbe welchen Wert hat, läßt du dir am einfachsten aufzeichnen.

Viel Spaß
Sam