Farbwertliste generieren
16.09.2007 20:28:00
Franz
Bei z>57 kommt die "1004." Fehlermeldung. Wie bekomme ich alle 255 Farben bunt aufgelistet?
Wo ist mein Denkfehler in meinem Makro?
Sub Farbliste_generieren()
Dim z As Integer
Sheets.Add
MsgBox ("")
Cells(1, 1) = "Farbwert"
Cells(1, 2) = "Erscheinungsbild"
For z = 2 To 255
Cells(z, 1).Value = z
Cells(z, 2).Select
With Selection.Interior
.ColorIndex = z
End With
Next
End Sub
Tschüss!
Franz D.
Anzeige
