Clever-Excel-Forum

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

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

@LC

Was ist entirerow mehr als row ??

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 ;)

@LC

Nur für dich:

oder

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

danke Euch

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

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

...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 

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

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