Felder einfärben
29.10.2002 10:00:13
Tobias
Das Makro färbt alle Felder im Bereich b5:i13 grau, wenn es eine ungerade Zahl ab 5 enthält.
Richtig müsste es aber von b5 bis i5 alle Felder grau einfärben, wenn in b5 eine ungerade Zahl ab 5 steht, die Felder b6 bis i6 wenn in b6 eine ungerade Zahl ab 5, die Felder b7 bis i7 wenn in b7 usw.
Wie muss das Makro abgeändert werden?
Sub Makro2()
Dim c As Range
For Each c In [b5:i13]
If c > 4 And c Mod 2 = 1 Then
c.Interior.ColorIndex = 15
End If
Next
End Sub
Vielen Dank
Tobias