Dim color_index As Long
    Dim i As Integer
 
    For i = 1 To end_column
      color_index = Cells(1, i).Interior.ColorIndex 
                   'Cells(RowIndex,ColumnIndex) ColumnIndex wird hochgezählt
      MsgBox "Index: " & color_index
    Next i

Uli

Wissen ist Macht; nichts wissen macht auch nichts!