ich möchte, dass Zellen, die Zahlen enthalten, deren Wert ein Vielfaches von 100 beträgt, in rot dargestellt werden, also wenn der Zellwert 100, 200, 300 usw. ist.
Bereits hier schon vielen Dank für die Hilfen.
Mfg
Fritz
Sub HunderterFärben()
Dim rng As Range
For Each rng In ActiveSheet.UsedRange
If rng.Value <> "" And rng.Value - Fix(rng.Value) = 0 And _
CInt(rng.Value) Mod 100 = 0 Then rng.Interior.ColorIndex = 3
Next
End Sub