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

[Tom2020]

Hallo Leute,

bin auf der Suche nach einem VBA-Code wo ich die ganzen Zeilen von 1 bis 1000, in dieser Reihenfolge einfärben kann

1.Zeile    Rows.EntireRow.Interior.ColorIndex = 35
2.Zeile    Rows.EntireRow.Interior.ColorIndex = 37
3.Zeile     Rows.EntireRow.Interior.ColorIndex = 0

4.Zeile Rows.EntireRow.Interior.ColorIndex = 35
5.Zeile Rows.EntireRow.Interior.ColorIndex = 37
6.Zeile Rows.EntireRow.Interior.ColorIndex = 0

Danke für die Hilfe

t

[LCohen]

Sub TripleChange(): For i = 1 To 1000
Rows(i).EntireRow.Interior.ColorIndex = -(i Mod 3 = 1) * 35 - (i Mod 3 = 2) * 37
Next: End Sub

[snb]

@LC

Was ist entirerow mehr als row ??

Code:

For j=1 to 1000
  Usedrange.rows(j).interior.colorindex= 2*(j mod 3) - 33 *((j Mod 3) <> 0)
next

[LCohen]

Ich kenne mich in VBA nicht so gut aus, snb. Gedacht habe ich es mir aber auch; war nur zu faul zum Testen.

Deine Booleans sind zwar schick, aber es wird etwas clumsy, wenn OP andere ColorIndizes wählt ;)

[snb]

@LC

Nur für dich:

Code:

For j=1 to 1000
  Usedrange.rows(j).interior.colorindex = choose(j mod 3 + 1,35,37,0)
next

oder

Code:

For j=1 to 1000
  Usedrange.rows(j).interior.colorindex = Array(35,37,0)(j mod 3)
next

[LCohen]

Ist tatsächlich wertvoll für mich, denn Choose (statt WorksheetFunction.Choose) war mir nicht bekannt. :) Danke, snb!

[Tom2020]

danke Euch

ist es möglich anstatt colorindex, einen RGB Wert zu benutzen, rgb hat mehr als excel selbst 

[LCohen]

Mit dem Makrorekorder siehst Du es, wenn Du eine erweiterte Farbe mischst.

[Tom2020]

...andersrum gefragt:

Mit dem Makrorekorder bekomme ich 


    With Selection.Interior
        .ThemeColor = xlThemeColorAccent6

        .TintAndShade = 0.599993896298105



und
        .ThemeColor = xlThemeColorAccent5

        .TintAndShade = 0.599993896298105



wie kann ich in dem Code einbinden 

[LCohen]

Ich wollte auf .Color statt .ColorIndex oder .ThemeColor hinaus:

https://www.excel-vba-lernen.de/23-farben (auch RGB!)