Hallo Rainer :-)
Lass das Makro rüber laufen!
Gruß Nighty
Zur verfügung stehende Farben,dessen Position im Makro angeben,beginnend bei 0
"Schwarz", "Weiß", "Rot", "Hellgrün", "Blau", "Gelb", "Rosa", "Türkis", "Dunkelrot", "Grün","Dunkelblau", "Dunkelgelb", "Violett", "Seegrün", "Grau", "Grau", "Immergrün", "Pflaume", "Elfenbein", "helles Türkis", "Dunkelpurpur", "Koralle", "Meeresblau", "Eisblau", "Dunkelblau", "Rosa", "Gelb", "Türkis", "Violett", "Dunkelrot", "Seegrün", "Blau", "Himmelblau", "helles Türkis", "Pastellgrün", "Hellgelb", "Blaßblau", "Hellrosa", "Lavendel", "Gelbbraun", "Hellblau", "Aquablau", "Gelbgrün", "Gold", "helles Orange", "Orange", "Blaugrau", "Grau 40", "Grünblau", "Meeresgrün", "Dunkelgrün", "Olivgrün", "Braun", "Pflaume", "Indigoblau", "Grau 80"
0-11 ist der zur Zeit eingestellte Farnindex
In der 3 Zeile anpassen!
[code]Sub Farbe()
Dim FIndex As Variant
Dim Zelle As Long
FIndex = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11)
For Zelle = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Cells(Zelle, 1).Interior.ColorIndex = FIndex(Month(Cells(Zelle, 1)))
Next Zelle
End Sub[/code]