VBA - Farbtabelle erstellen

Home

VBA Makro Beispiele

Formatierungen

Geschrieben von: Marcus Rose

Sonntag, 11. Mai 2008 um 23:11 Uhr

Hier wird eine Farbtabelle erstellt, damit Ihr die Farben, anhand der Nummern, für Makro´s zuordnen könnt. Diese Aufgabe streift zwar nur das Thema der Formatierungen, aber ohne eine Farbe zuweisen zu können ist die Formatierung auch schwierig, oder?

th {font-weight:normal}

	A	B	C	D	E	F	G
1	Farbnummer	Zellfarbe	Schriftfarbe		Farbnummer	Zellfarbe	Schriftfarbe
2	1		1		29		29
3	2		2		30		30
4	3		3		31		31
5	4		4		32		32
6	5		5		33		33
7	6		6		34		34
8	7		7		35		35
9	8		8		36		36
10	9		9		37		37
11	10		10		38		38
12	11		11		39		39
13	12		12		40		40
14	13		13		41		41
15	14		14		42		42
16	15		15		43		43
17	16		16		44		44
18	17		17		45		45
19	18		18		46		46
20	19		19		47		47
21	20		20		48		48
22	21		21		49		49
23	22		22		50		50
24	23		23		51		51
25	24		24		52		52
26	25		25		53		53
27	26		26		54		54
28	27		27		55		55
29	28		28		56		56

Option Explicit

Sub Farbtabelle()
    Dim bfarbe As Byte
    For bfarbe = 2 To 57
        If bfarbe < 30 Then
            Cells(bfarbe, 1) = bfarbe - 1
            Cells(bfarbe, 2).Interior.ColorIndex = bfarbe - 1
            Cells(bfarbe, 3).Font.ColorIndex = bfarbe - 1
            Cells(bfarbe, 3) = bfarbe - 1
        Else
            Cells(bfarbe - 28, 5) = bfarbe - 1
            Cells(bfarbe - 28, 6).Interior.ColorIndex = bfarbe - 1
            Cells(bfarbe - 28, 7).Font.ColorIndex = bfarbe - 1
            Cells(bfarbe - 28, 7) = bfarbe - 1
        End If
    Next bfarbe
End Sub

Hauptmenü

VBA Bereich

Schlüsselkonzepte

Autoren - Login

Werbung