Gruppe
Feature
Problem
Die Verkaufspreise, die kleiner als der Einkaufspreis * 200% sind, sollen grün, die, die größer als Einkaufspreis * 260% sind, blau gekennzeichnet werden.
StandardModule: basMain
Sub FarbIndices()
Dim iCounter As Integer
For iCounter = 1 To 56
Cells(iCounter, 1).Interior.ColorIndex = iCounter
Cells(iCounter, 2) = iCounter
Next iCounter
End Sub