Zeilen einfärben
28.03.2017 15:07:17
Peter
Hallo Zusammen,
danke erstmal für Eure Antworten. Habe die Aufgabenstallung wie folgt gelöst.
Sub Zell_Einfärben()
Dim Zeilenzahl As Integer
Dim i As Integer
Dim x As Boolean
Dim farbe1 As Boolean
Dim farbe2 As Boolean
lz = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row 'letzte Zeile bestimmen
ls = Cells(8, Columns.Count).End(xlToLeft).Column 'letzte Spalte
Zeilenzahl = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
farbe1 = True
farbe2 = False
For i = 9 To Zeilenzahl
x = False
If Range("C" & i) Range("C" & i - 1) Then x = True
If x = True Then
If farbe1 = True Then
farbe1 = False
farbe2 = True
Else
farbe1 = True
farbe2 = False
End If
End If
If farbe1 = True Then
'Rows(i).Interior.ColorIndex = 15
Range(Cells(i, 2), Cells(i, ls)).Select
With Selection.Interior
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0.799981688894314
End With
End If
If farbe2 = True Then
'Rows(i).Interior.ColorIndex = 2
Range(Cells(i, 2), Cells(i, ls)).Select
With Selection.Interior
.ThemeColor = xlThemeColorDark1
.TintAndShade = -4.99893185216834E-02
End With
End If
Next i
End Sub
Gruß, Peter