Zeilen Färben
11.12.2007 15:33:00
Michael
Hallo,
ich habe folgendes Makro, welches mir nach auswahl einer Zelle von dort an den benutzten Bereich als Liste mit abwechselnde Farbformatierung der Zeilen bringen soll. Allerdings klappt das noch nicht so gut. kann mir mal jmd einen Tip geben?
Micha
Sub Färben()
Dim i As Long
Dim rng As Range
Set rng = Application.InputBox("Bitte eine Zelle auswählen:", Type:=8)
rng.Select
For i = rng To ActiveSheet.UsedRange.Rows.Count
If i Mod 2 = 1 Then
Rows(i).Interior.ColorIndex = 17
End If
Next i
End Sub
Anzeige