Code
17.05.2004 09:33:59
für
Sub farben()
For i = 1 To 56
Cells(i, 1).Interior.ColorIndex = i
Cells(i, 2).Value = "index:" & i
Next
End Sub
gruß
Christian