Hi Odje,
versuchs mal so:
Option Explicit
Sub Bereich()
Application.ScreenUpdating = False
Dim Rng As Range
On Error Resume Next
Set Rng = Range("A1")
Set Rng = Application.InputBox(Prompt:="Einfärben z.B.: ( A5:B10;E1:F4 )", Type:=8)
If Rng Is Nothing Then
MsgBox "Operation Cancelled"
Else
Rng.Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=REST(ZEILE();2)=0"
Selection.FormatConditions(1).Interior.ColorIndex = 36
Range("A1").Select
Application.ScreenUpdating = True
End If
End Sub
Gruß
fedjo