Sub PrintRGBValues()

Dim intNumColor As Integer
Dim strHexVal, strRGBVal As String

 'Die Spaltenköpfe anlegen.
 Range("A1").Select
 ActiveCell.Formula = "Color"
 ActiveCell.Offset(0, 1).Formula = "Index"
 ActiveCell.Offset(0, 3).Formula = "Rot"
 ActiveCell.Offset(0, 4).Formula = "Grün"
 ActiveCell.Offset(0, 5).Formula = "Blau"

 ActiveCell.Offset(1, 0).Activate

For intNumColor = 1 To 56

ActiveCell.Offset(0, 1).Formula = _
Str(ActiveCell.Interior.ColorIndex)
ActiveCell.Offset(0, 3).Value = rgbVal And &HFF
ActiveCell.Offset(0, 4).Value = rgbVal \ &H100 _
And &HFF
ActiveCell.Offset(0, 5).Value = rgbVal \ _
&H10000 And &HFF
ActiveCell.Offset(1, 0).Activate
Next intNumColor
End Sub
 
 ActiveCell.Offset(1, 0).Activate

 Next intNumColor
End Sub