Excel vba, ganze Zeile 1 bis 1000 einfärben, keine Bedingte Formatierung

[Tom2020]

bin mir nicht sicher:

Sub TripleChange()
For i = 1 To 100
Rows(i).EntireRow.Interior.Color = -(i Mod 3 = 1) * RGB(204, 255, 204) - (i Mod 3 = 2) * RGB(153, 204, 255)
Next
End Sub


ich bekomme die dritte Zeile als schwarz ;( und nicht transparent

[LCohen]

Sub TripleChange(): For i = 1 To 1000
Rows(i).Interior.Color = -(i Mod 3 = 1) * RGB(204, 255, 204) - (i Mod 3 = 2) * RGB(153, 204, 255) - (i Mod 3 = 0) * RGB(255, 255, 255)
Next: End Sub

... ergibt weiß, nicht schwarz. Und vermutlich auch nicht transparent, wovon jetzt plötzlich das erste Mal die Rede ist.

Für Transparent ändere das Makro bitte selbst ab, nachdem Du erneut den Makrorekorder verwendet hast.

Hast Du -(i Mod 3 = 1) überhaupt verstanden?

[Tom2020]

so geht:

Sub TripleChange()
For i = 1 To 1000
Rows(i).Interior.Color = -(i Mod 3 = 1) * RGB(204, 255, 204) - (i Mod 3 = 2) * RGB(153, 204, 255) - (i Mod 3 = 0) * xlNone
Next
End Sub

[LCohen]

Jetzt habe ich was von Dir gelernt, und musste nicht selbst nachschauen. :)

[snb]

Man sollte keine Ganze Zeilen oder Spalten formatieren !!
Un nun in VBA und Code Tags !

Code:

Sub M_snb()
  For j = 1 To 10
    UsedRange.Rows(j).Interior.Color = Choose(j Mod 3 + 1, xlNone, RGB(204, 255, 204), RGB(153, 204, 255))
  Next
End Sub