excel / VBA: zellenfarbe nach nummer

ich muss für ein worksheet eine matrix erstellen, welche zellen mit einer bestimmten nummer einer bestimmte farbe zuordnet.

dh. ich habe eine skala von 1-20, und jeder nummer ist eine farbe zugeteilt.

nun hätte ich gerne, dass wenn eine zelle den wert 1 hat, dass sie die für 1 zugeordnete farbe übernimmt usw.

ich weiss, dass man mit conditioned formatting (k.a. wie es in d heisst) sowas machen kann, aber leider nur für 3 bedingungen. ich bräuchte 20...

gibt es eine vba lösung für das problem? ich habe was gefunden, das geht aber nur umgekehrt -> sprich die zellenfarbe wird als text / nummer ausgegeben:

Zitat

Function CellColor(rCell As Range, Optional ColorName As Boolean)
Dim strColor As String, iIndexNum As Integer

'Written by Dave Hawley of OzGrid.com
Select Case rCell.Interior.ColorIndex
Case 1
strColor = "Black"
iIndexNum = 1
Case 53
strColor = "Brown"
iIndexNum = 53
Case 52
strColor = "Olive Green"
iIndexNum = 52
Case 51
strColor = "Dark Green"
iIndexNum = 51
Case 49
strColor = "Dark Teal"
iIndexNum = 49
Case 11
strColor = "Dark Blue"
iIndexNum = 11
Case 55
strColor = "Indigo"
iIndexNum = 55
Case 56
strColor = "Gray-80%"
iIndexNum = 56
Case 9
strColor = "Dark Red"
iIndexNum = 9
Case 46
strColor = "Orange"
iIndexNum = 46
Case 12
strColor = "Dark Yellow"
iIndexNum = 12
Case 10
strColor = "Green"
iIndexNum = 10
Case 14
strColor = "Teal"
iIndexNum = 14
Case 5
strColor = "Blue"
iIndexNum = 5
Case 47
strColor = "Blue-Gray"
iIndexNum = 47
Case 16
strColor = "Gray-50%"
iIndexNum = 16
Case 3
strColor = "Red"
iIndexNum = 3
Case 45
strColor = "Light Orange"
iIndexNum = 45
Case 43
strColor = "Lime"
iIndexNum = 43
Case 50
strColor = "Sea Green"
iIndexNum = 50
Case 42
strColor = "Aqua"
iIndexNum = 42
Case 41
strColor = "Light Blue"
iIndexNum = 41
Case 13
strColor = "Violet"
iIndexNum = 13
Case 48
strColor = "Gray-40%"
iIndexNum = 48
Case 7
strColor = "Pink"
iIndexNum = 7
Case 44
strColor = "Gold"
iIndexNum = 44
Case 6
strColor = "Yellow"
iIndexNum = 6
Case 4
strColor = "Bright Green"
iIndexNum = 4
Case 8
strColor = "Turqoise"
iIndexNum = 8
Case 33
strColor = "Sky Blue"
iIndexNum = 33
Case 54
strColor = "Plum"
iIndexNum = 54
Case 15
strColor = "Gray-25%"
iIndexNum = 15
Case 38
strColor = "Rose"
iIndexNum = 38
Case 40
strColor = "Tan"
iIndexNum = 40
Case 36
strColor = "Light Yellow"
iIndexNum = 36
Case 35
strColor = "Light Green"
iIndexNum = 35
Case 34
strColor = "Light Turqoise"
iIndexNum = 34
Case 37
strColor = "Pale Blue"
iIndexNum = 37
Case 39
strColor = "Lavendar"
iIndexNum = 39
Case 2
strColor = "White"
iIndexNum = 2
Case Else
strColor = "Custom color or no fill"
End Select

If ColorName = True Or _
strColor = "Custom color or no fill" Then
CellColor = strColor
Else
CellColor = iIndexNum
End If

End Function

Alles anzeigen

vielen dank für die tips!

hobs selber rausgfundn (VBA ist wirklich nicht so schwer...)

Zitat

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Wenn mehr als eine Zelle markiert wurde dann Makro beenden
If Target.Cells.Count > 1 Then Exit Sub

Select Case Target.Value
'Wert "1" Farbe 40
Case "1"
Target.Interior.ColorIndex = 40
Target.Font.ColorIndex = 40

'Wert "2" Farbe 44
Case "2"
Target.Interior.ColorIndex = 44
Target.Font.ColorIndex = 44

'Wert "3" Farbe 45
Case "3"
Target.Interior.ColorIndex = 45
Target.Font.ColorIndex = 45

'Wert "4" Farbe 46
Case "4"
Target.Interior.ColorIndex = 46
Target.Font.ColorIndex = 46

'Wert "5" Farbe 53
Case "5"
Target.Interior.ColorIndex = 53
Target.Font.ColorIndex = 53

'Wert "6" Farbe 52
Case "6"
Target.Interior.ColorIndex = 52
Target.Font.ColorIndex = 52

'Wert "7" Farbe 12
Case "7"
Target.Interior.ColorIndex = 12
Target.Font.ColorIndex = 12

'Wert "8" Farbe 43
Case "8"
Target.Interior.ColorIndex = 43
Target.Font.ColorIndex = 43

'Wert "9" Farbe 6
Case "9"
Target.Interior.ColorIndex = 6
Target.Font.ColorIndex = 6

'Wert 10" Farbe 36
Case "10"
Target.Interior.ColorIndex = 36
Target.Font.ColorIndex = 36

'kein Wert, keine Farbe
Case Else
Target.Interior.ColorIndex = 0
End Select
End Sub

Alles anzeigen