Farbschleife - Zellen abwechselnd einfärben

Dieses Beispiel zeigt, wie ausgehend von der aktuell markierten Zelle, weitere 33 Zellen, also insgesamt 34 Zellen mit einem farbigen Zellhintergrund belegt werden. Dabei sollen die ersten drei Zeilen in blau, die weiteren drei Zeilen in rot und die Zeilen 7-9 in grün eingefärbt werden. Anschließend werden wirder drei Zeilen in blau, weitere drei Zeilen in rot und so wieter eingefärbt.

Der Code dazu sieht wie folgt aus:

  Sub farbschleife()
z = ActiveCell.Row
s = ActiveCell.Column
f = 0
farbe = 5
For a = 1 To 34
    Cells(z, s).Interior.ColorIndex = farbe
  
    z = z + 1
  
    f = f + 1
    
    If f = 3 Then
      
      If farbe = 5 Then
        farbe = 3
      ElseIf farbe = 3 Then
        farbe = 10
      ElseIf farbe = 10 Then
        farbe = 5
      End If
      
      f = 0
    End If
  
Next a

End Sub

Fügen Sie diesen Code einfach in ein Code-Modul ein.

Das Ergebnis sieht wie folgt aus: