soll in Abhängigkeit von Spalte C die Zeilenfarbe von A1 - X1000
im Wechsel grau oder weiß dargestellt werden.
Ist die Zelle leer soll die Zeilenfarbe weiß bleiben
Vielen Dank!
Sub Grey_Cells()
Dim i As Integer
Worksheets("Tabelle1").UsedRange.Interior.ColorIndex = xlNone
For i = 1 To Worksheets("Tabelle1").UsedRange.Rows.Count
If Not IsEmpty(Cells(i, 3)) Then
Range(Cells(i, 1), Cells(i, 3)).Interior.ColorIndex = 15
End If
Next i
End Sub
Tabelle1
A B C 1 1 1 1 2 1 1 1 3 1 1 4 1 1 5 1 1 6 1 1 7 1 1 1 8 1 1 1 9 1 1 1
Bereich markieren
Format - Bedingte Formatierung - "Formel ist:" =NICHT(ISTLEER($C1))
Gruss Rainer