Construct a line of code using values of an array

[SeniorNewbie]

Hi out there,

my target is to construct a code line by loop through an array with the values of iR,iG. iB. All my attempts end in Type mismatch, No such Property or similar errors.
The following code show my attempts:

Sub Colors()
Dim aColors, i As Integer, sParam As String

'aColors = Array("255, 0, 0", "255, 100, 100")                  'for line 55
'aColors = Array("RGB(255, 0, 0)", "RGB(255, 100, 100)")        'for line 56
'aColors = Array(" = RGB(255, 0, 0)", " = RGB(255, 100, 100)")  'for line 57

For i = 0 To UBound(aColors)
    With ActiveSheet
        sParam = aColors(i)
        '.Cells(i + 1, 1).Interior.Color = RGB(aColors(i))
        '.Cells(i + 1, 1).Interior.Color = sParam
        '.Cells(i + 1, 1).Interior.Color sParam
    End With
Next i

End Sub

To test the code the corresponding two lines have to be activated.

Any idea what's my mistake?

THX in advance
Senior Newbie

 

[Fluff]

How about

Sub Colors()
Dim aColors, i As Integer, sParam As String

aColors = Array(Array(255, 0, 0), Array(255, 100, 100))                 'for line 55
'aColors = Array("RGB(255, 0, 0)", "RGB(255, 100, 100)")        'for line 56
'aColors = Array(" = RGB(255, 0, 0)", " = RGB(255, 100, 100)")  'for line 57

For i = 0 To UBound(aColors)
    With ActiveSheet
'        sParam = aColors(i)
        .Cells(i + 1, 1).Interior.Color = RGB(aColors(i)(0), aColors(i)(1), aColors(i)(2))
        '.Cells(i + 1, 1).Interior.Color = sParam
        '.Cells(i + 1, 1).Interior.Color sParam
    End With
Next i

End Sub

 

[SeniorNewbie]

Hi Fluff,

thank you so much! it works. I didn't think, that's necessary to seperate the values. I hoped it's easier ... but anyway THX a lot!!

Have a nice day

 

[Fluff]

You're welcome & thanks for the feedback.