Zellen einfärben wenn andere Zelle farbig
30.07.2013 16:34:49
Flo
ich habe ein Problem, dass ich vermutlich nicht mit der bedingten Formatierung lösen kann. Ich möchte gerne ein Tabellenblatt so gestalten, dass in jeder Zeile die Spalten B bis G grau eingefärbt werden, wenn sie in der Zeile direkt darunter weiß sind.
Mein Code funktioniert leider nicht, da ich nicht weiß, wie man die Range richtig manipuliert. Ich bin blutiger Anfänger in VBA.
Sub Makro1()
lz = Cells(Rows.Count, 2).End(xlUp).Rows.Row
For t = lz To 2 Step -1
If Range("Bt+1:Gt+1").Interior.Color = RGB(255, 255, 255) Then
Range("Bt:Gt").Interior.Color = RGB(242, 242, 242)
End If
Next
End Sub
Beste Grüße