Excel Farbpalette erstellen und mit Farbindexnummer versehen

Excel Farbpalette erstellen und mit Farbindexnummer versehen
Original-Blog: VBA-Codeschnipsel Zum Original Blog

Diese nette Lösung habe ich aus dem im MSPress-Verlag erschienen Buch “Excel 2007 Programmierung – Das Handbuch” von Monika Weber und Michael Schwimmer.

Das nachstehende Makro liest die Farbpalette aus – färbt die Zellen entsprechend ein und notiert daneben die Colorindexnummer.

<.>

Option Explicit

Sub Farbpalette_erstellen()
Dim i As Integer

For i = 1 To 14
‘ Index und Farben für Spalte A und B
Cells(i, 1).Value = i
Cells(i, 2).Interior.ColorIndex = i

‘ Index und Farben für Spalte C und D
Cells(i, 3).Value = i + 14
Cells(i, 4).Interior.ColorIndex = i + 14

‘ Index und Farben für Spalte E und F
Cells(i, 5).Value = i + 28
Cells(i, 6).Interior.ColorIndex = i + 28

‘ Index und Farben für Spalte G und H
Cells(i, 7).Value = i + 42
Cells(i, 8).Interior.ColorIndex = i + 42
Next i

‘ Spaltenbreite auf 6 Punkte einstellen
Columns(“A:H”).ColumnWidth = 6
End Sub

<.>

Das Buch sowie die Buch-CD mit vielen Beispieldateien ist übrigens ein lesenswerter Einstieg in VBAShare on Facebook

Zum Original Blog
Author: Andreas Entenmann