VBA-Beispiel 030
mail schreiben
mail schreiben
Farbindex

listet die 56 in Excel eingestellten Zellfarben auf

Sub farbindex()
Dim z As Integer

For z = 1 To 56
    Cells(z, 1) = z
    Cells(z, 2).Interior.ColorIndex = z
Next
End Sub

Download:   vba030.zip