Skiftevis af farver på hver anden linje

Sub farv()
Dim i
For i = 2 To 101 Step 2  'Tilret 100 til hvor mange rækker
Range("a1").Offset(i, 0).EntireRow.Interior.ColorIndex = 6
Next
For i = 1 To 100 Step 2  'Tilret 100 til hvor mange rækker
Range("a2").Offset(i, 0).EntireRow.Interior.ColorIndex = 15
Next
End Sub

Perfekt hurtigt svar! TAK!

Hvis det er i orden, kommer lige verdens dummeste tillægsspm: hvor præcist sætter jeg den "smøre" ind? :)

Højreklik på en arkfane, vis programkode. Kopier koden ind og luk. Afspil herefter makroen via menuen funktioner, makro. Rediger den evt. og giv den en genvejstast.

Hvis du vil ændre farverne skal tallet efter .ColorIndex ændres. Da man jo ikke kan huske farvekoderne, kan du indspille en makro via funktioner => makro og farve en celle med din farve. Stop herefter indspilningen, og gå igen ind under makroer. Tryk ctrl+R og find din indspillede makro under modules. Her kan du så se hvad farvekoden hedder og ændrer den i din egen makro.
Håber det er til at forstå.

Perfekt! Intet mindre :)

Tak.

(og takker for ekstra tilføjelsen, god ting at vide - og det var godt forklaret, når selv jeg kan forstå det :-))

Velbekomme :o). Husk at acceptere svaret

En lille variant, som bruger betinget formatering til at holde øje med, om linier bliver slettet eller tilføjet:

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

En oversigt over farvekoderne findes ellers også her:
http://www.smartoffice.dk/Tips/LibrarySource.asp?App=Excel&Lib=ColorIndex

Ups, sorry mrjh, en forglemmelse :) Og for det ikke skal være nok, så kommer x-lars med en lækker lille tilføjelse :)

Bliver alle glade hvis jeg giver jer lige mange point? :)

(tak til x-lars også!)

Jeps helt iorden med mig :o)

mrjh var først, min var kun for kicks!

hæhæ, okay så :D

Case closed, I know... men vil lige knytte en kommentar - til fremtidige situationer:

Man kan bruge betinget formatering til det...

Marker dit område
Vælg Formtater -> Betinget formatering
Vælg Formlen er
Indsæt denne formel: =REST(RÆKKE();2)=0 eller =REST(RÆKKE();2)<>0 (afhængigt af om det skal være lige eller ulige rækker der skal farves)

Så kan du slette og indsætte rækker som du har lyst og slipper for at bruge makroer

Mange tak til stewen også. Alle metoderne lader til at virke som de skal, så hvilken der er bedst har jeg svært ved at vurdere, men stewens har måske den fordel at man ikke skal "lege med farvekoder", samt at den er en tand lettere at "kontrollere" med hensyn til hvordan stregerne præcis skal placere sig.
Om der er så er nogle skjulte ulemper ved metoden ved jeg så ikke :)

Der er ingen skjulte ulemper! Det er en særdeles brugt metode... og umiddelbart også den letteste, som du selv skriver - men helt op til dig selv.

Fordelen er at du ikke skal køre makroen hver gang du har indsat eller slettet en række, samt at du er fri for makroer. Men begge løsninger virker - hver gang :-)