Thomas Risi Softwareentwicklung

Zeilen abwechselnd färben

Aus einer Frage in einem Forum ...

Eine Funktion, die die Zeilen eines Bereiches abwechselnd färbt.

Option Explicit Const DEFAULT_COLOR = 5 ' Beispiel für Defaultwert Sub Test() ' Färbt den aktiven Bereich. 'clrRows Selection, 5, 6 ' Färbt den Bereich "A1:J10" mit den Defaultwerten. clrRows ActiveSheet.Range("A1:J10") End Sub ' Diese Funktion färbt die Zeilen eines Bereiches abwechselnd ein. ' rng = Ein Bereich in einer Exceltabelle ' clrIndex1 = Farbindex für Farbe1 (Default = 5) ' clrIndex2 = Farbindex für Farbe2 (Default = Farblos) Public Sub clrRows(rng As Excel.Range, _ Optional clrIndex1 = DEFAULT_COLOR, _ Optional clrIndex2 = xlColorIndexNone) Dim i As Long Application.ScreenUpdating = False With rng For i = 1 To .Rows.Count If .Rows(i).EntireRow.Row Mod 2 = 0 Then .Rows(i).Interior.ColorIndex = clrIndex1 Else .Rows(i).Interior.ColorIndex = clrIndex2 End If Next i End With Application.ScreenUpdating = True End Sub

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)