Clever-Excel-Forum

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

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

Hi,

Zitat:(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

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

Foregner

EbyAS

Elex

Foregner