Hallo Tommi .-)
Ein Anwendungsbeispiel für FormulaR1C1 !
Gruß Nighty
[code]
Sub Jede2ZeileRot()
Dim Lzeile As Long
Lzeile = ActiveSheet.Range(Cells(Rows.Count, 1), Cells(Rows.Count, 1)).End(xlUp).Row
Range("IV1:IV" & Lzeile).FormulaR1C1 = "=if(mod(row(),2)=1,""x"",0)"
Range("IV1:IV" & Lzeile).SpecialCells(xlCellTypeFormulas, 2).EntireRow.Hidden = True
Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Interior.ColorIndex = 3
Range("IV1:IV" & Lzeile).SpecialCells(xlCellTypeFormulas, 2).EntireRow.Hidden = False
Range("IV:IV").Delete
End Sub[/code]