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 wireder drei Zeilen in blau, weitere drei Zeilen in rot und so weiter 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:
+49(0) 151 164 55 914 
