Farve hver anden linje i et akt

Kan dette bruges?
http://www.eksperten.dk/spm/349027

>> rosco
Kan du måske kaste lidt mere lys over hvad der menes, for hvad jeg kan læse mig frem til er at der skal være et felt i hver linje hvor den formel skal stå.

Dette er ikke det jeg vil have, jeg tænkte på om det muligt at løse dette via et vba script.

På forhånd tak.

Marker A1, vælg betinget formatering, Vælg Formlen er, og indsæt denne.
=REST(RÆKKE();2)=0
Cellen skal derefter kopieres til resten af arket, eller den del af arkert du bruger.
Det kan gøres ved hjælp af Format penslen.

Prøv lige denne:

Sub farve()
    For Række = 2 To 100 Step 2
        Rows(Række & ":" & Række).Select
        With Selection.Interior
            .ColorIndex = 15
            .Pattern = xlSolid
        End With
    Next Række

    For Række = 1 To 99 Step 2
        Rows(Række & ":" & Række).Select
        With Selection.Interior
            .ColorIndex = 0
            .Pattern = xlSolid
        End With
    Next Række

End Sub

Du kan selv rette antal af rækker der skal farves.

Sub farve()

application.ScreenUpdating=False

For Række = 2 To 100 Step 2
        Rows(Række & ":" & Række).Select
        With Selection.Interior
            .ColorIndex = 15
            .Pattern = xlSolid
        End With
    Next Række

    For Række = 1 To 99 Step 2
        Rows(Række & ":" & Række).Select
        With Selection.Interior
            .ColorIndex = 0
            .Pattern = xlSolid
        End With
    Next Række


application.ScreenUpdating=True

End Sub

Så undgår du at se at koden afvikles.

Denne gælder for alle rækker i arket, bruger betinget formatering og tager dermed højde for, hvis der fjernes eller indsættes rækker:

    Cells.Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=REST(RÆKKE();2)=0"
    Selection.FormatConditions(1).Interior.ColorIndex = 15

Tak for hjælpen, det sådan jeg gerne ville have det