VBA Farbformatierung

[Foregner]

Hallo Clever Excel Forum !

Hätte eine Frage zur Farbformatierung.
Der unten stehende Code Färbt mir jede zweite Zeile Farblich ein.

Nun meine Frage:
Wie müsste man den Code abändern, das z.b. (Zeile 4,5 Farbe) (Zeile 6,7 Keine Farbe) (Zeile 8,9 Farbe) u.s.w Funktioniert. hab schon einiges ausprobiert, ohne Erfolg:
Währe Super wenn einer mir bei diesem Problem Helfen könnte.

LG Gerhard

Sub ZeilenFormatieren()

Dim Zeile As Long
Dim i As Integer

'Löscht die Farbreihen aus der Tabelle
With Range("A6:K180").Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
'Fügt die neuen Farbreihen nach Vorgabe wieder ein
For i = 1 To 11
With Sheets("Daten")
For Zeile = 6 To .UsedRange.Rows.Count
If Zeile Mod 2 = 0 Then
.Cells(Zeile, i).Interior.ColorIndex = 28
End If
Next Zeile
End With
Next i
End Sub

[EbyAS]

Hallo,


For i = 1 To 11   brauchst Du nicht

Code:

For Zeile = 6 To ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
    If Zeile Mod 2 = 0 Then
       Cells(Zeile, 1).Resize(1, 11).Interior.ColorIndex = 28
    Else
       Cells(Zeile, 1).Resize(1, 11).Interior.ColorIndex = xlColorIndexNone
    End If
Next

Oder auch noch einfacher:

Code:

For Zeile = 6 To ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row Step 2
       Cells(Zeile, 1).Resize(1, 11).Interior.ColorIndex = 28
 Next

[Elex]

Hi,

(Zeile 4,5 Farbe) (Zeile 6,7 Keine Farbe) (Zeile 8,9 Farbe) u.s.w

Code:

For Zeile = 4 To 180 Step 4
  Cells(Zeile, 1).Resize(2, 11).Interior.ColorIndex = 28
Next

Gruß Elex

[Foregner]

Hi
So konnte erst jetzt ausprobieren.
@EbyAS Danke das du Helfen wolltest, aber dein Code ändert nichts. Färbt wie meiner nur jede zweite Zeile ein.

@Elex mit deinem Code funktioniert alles so wie gewollt, Herzlichen Dank.

LG Gerhard