An Hajo Zi oder Andreas E

was muss ich zum Makro hinzufügen damit ich auch noch die Spalten 11,13,15,17, und 19
genauso Formatieren kann???

Sub Schleife()
Dim I As Integer
For I = 3 To 37 Step 2
With Cells(11, I)
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeRight).ColorIndex = 2
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).ColorIndex = 2
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeLeft).ColorIndex = 16
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).ColorIndex = 16
End With
Next I

End Sub

Max M.