Jede zweite Zeile grau
10.04.2004 17:46:29
Rolf Stamereilers
Ich möchte, das jede zweite Zeile ab Zeile 3, beim ausführen eines Makros grau wird. Aber nur bis zu der Zeile in der auch Inhalt steht . Der Inhalt kann bis Zeile 1000 stehen.
Bis hier bin ich gekommen:
Sub grau()
Range("A3:I3").Select
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
Range("A5:I5").Select
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
Range("A7:I7").Select
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
Range("A9:I9").Select
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End Sub
Vilen Dank für eure Hilfe!
Frohe Ostern!
Tschüß
Rolf