Office: vba: jede 2. zeile färben

hallo experten!

habe folgendes problem:

habe eine sehr lange liste, die immer weiter wächst. nun möchte ich zur besseren übersicht, jede zweite zeile grau färben. allerdings nur, wenn in der zeile auch etwas steht.

mein code lautet:



'jede 2. Zeile grau färben
z = 0
For i = 6 To 9999
If Sheets(2).Rows(6 + i).Value > 0 Then
Sheets(2).Rows(6 + z).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
End If
z = z + 2
Next i

leider erscheint eine fehlermeldung...wüsste jemand rat??

 

Hallo tequila6304,

ich habe 2 leicht unterschiedliche Makros anzubieten:
1) Makro 'Grau_BenutzterBereich()' ermittelt im aktiven Arbeitsblatt den benutzten Bereich und färbt in diesem jede 2 Zeile grau ein.
2) Makro 'Grau_BenutzteUmgebung()' ermittelt, ausgehend von einer bestimmten Zelle, den benutzten Bereich, in dem diese Zelle liegt, und färbt in diesem wieder jede 2. Zeile grau ein. Die Ausgangzelle ist in meinem Beispiel A6, kann aber natürlich beliebig angepasst werden.
3) Beide Makros am besten ins allgemeine Code-Modul kopieren.

Code:

Sub Grau_BenutzterBereich()
  Dim I As Long
  With ActiveSheet.UsedRange
    For I = 1 To .Rows.Count Step 2
      With .Rows(I).Interior
        .ColorIndex = 15
        .Pattern = xlSolid
      End With
    Next I
  End With
End Sub
Sub Grau_BenutzteUmgebung()
  Dim I As Long
  With ActiveSheet.Range("A6").CurrentRegion
    For I = 1 To .Rows.Count Step 2
      With .Rows(I).Interior
        .ColorIndex = 15
        .Pattern = xlSolid
      End With
    Next I
  End With
End Sub

 

super! genau das was ich wollte!

vielen herzlichen dank an dich!

gruß