Sub Farblich()
   For Each Zelle In ActiveSheet.UsedRange
      If Zelle.Value Mod 2 <> 0 Then
         With Zelle.Interior
            .ColorIndex = 3
            .Pattern = xlSolid
         End With
         Zelle.Font.ColorIndex = 2
      End If
   Next Zelle
End Sub