Excell Färben

$oExcel = ObjCreate("Excel.Application")
With $oExcel ; open new workbook
.Visible = True
.WorkBooks.Add
.ActiveWorkbook.Sheets(1).Select()
EndWith

$sRange ="A1:G8"
$k = 1
For $i = 1 To 7
For $j = 1 To 8
$oExcel.ActiveSheet.Range(Chr(64 + $i) & $j).Value = "ColorIndex: " & $k
With $oExcel.ActiveSheet.Range(Chr(64 + $i) & $j).Font
If Mod($j, 2) Then
.Name = "Courier New"
.FontStyle = "Italic"
;.Underline = 2
Else
.Name = "Comic Sans MS"
.FontStyle = "Regular"
.Underline = -4119 ; double underline
;.Underline = 4 ; accounting single underline
;.Underline = 5 ; accounting double underline
EndIf
.Bold = True
.ColorIndex = $k
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
EndWith
$k += 1
Next
Next
; format cells
With $oExcel.ActiveSheet.Range($sRange)
.Select
.HorizontalAlignment = -4108 ; center
.ColumnWidth = 18
;.EntireColumn.AutoFit
EndWith
; color columns
For $i = 1 To 7
$sCol = Chr(64 + $i)
If Mod($i, 2) Then
$oExcel.ActiveSheet.Range($sCol & "1:" & $sCol & "8").Interior.ColorIndex = 3
Else
$oExcel.ActiveSheet.Range($sCol & "1:" & $sCol & "8").Interior.ColorIndex = 20
EndIf
Next