Kann ich RGB Farben statt Indexfarben nutzen?

Ich habe eine Exceltabelle in der ich durch Zahleneingabe, bestimmte Zellen in den Indexfarben einfärben kann. Ich gebe eine Zahl ein und die Zelle und alle damit verbunden Zellen oder Zellen, welche die gleiche Funktion vorweisen müssen färben sich.

Nun gibt es nur 56 Indexfarben, welche zudem auch noch ziemlich grelle Farben sind. Ich hätte gerne ein größeres Spektrum an Farben, welches ich durch die RGB Farben bekommen kann. Nur weis ich nicht wie ich dies jetzt in meine Funktion einsetzen soll.

Ich habe nur ein Feld um eine Zahl reinzuschreiben und nicht 3, also ein Feld für R, eins für G und eins für B ist nicht umsetzbar.

Anbei meine VBA Programmierung:

Sub Farbe_Topic()
' Farbe_Topic Makro: Hier wird jetzt das "Status-Feld" in der gleichen Farbe formatiert, wie die, die auch in den ARbeitsblättern gewünscht ist
' Tastenkombination: Strg+w
  Range("B2:C2").Select
  With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ColorIndex = Tabelle11.Cells(2, 3) ' In dieser Zelle steht zum Beispiel eine 3 --> somit Farbe rot
    .TintAndShade = 0
    .PatternTintAndShade = 0
  Selection.Font.ColorIndex = Tabelle11.Cells(2, 11)
  End With
  Range("B3:C3").Select
  With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ColorIndex = Tabelle11.Cells(3, 3)
    .TintAndShade = 0
    .PatternTintAndShade = 0
  Selection.Font.ColorIndex = Tabelle11.Cells(3, 11)
  End With
 
  Range("B4:C4").Select
  With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ColorIndex = Tabelle11.Cells(4, 3)
    .TintAndShade = 0
    .PatternTintAndShade = 0
  Selection.Font.ColorIndex = Tabelle11.Cells(4, 11)
  End With
  Range("B5:C5").Select
  With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ColorIndex = Tabelle11.Cells(5, 3)
    .TintAndShade = 0
    .PatternTintAndShade = 0
  Selection.Font.ColorIndex = Tabelle11.Cells(5, 11)
  End With
  Range("B6:C6").Select
  With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ColorIndex = Tabelle11.Cells(6, 3)
    .TintAndShade = 0
    .PatternTintAndShade = 0
  Selection.Font.ColorIndex = Tabelle11.Cells(6, 11)
  End With
  Range("B7:C7").Select
  With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ColorIndex = Tabelle11.Cells(7, 3)
    .TintAndShade = 0
    .PatternTintAndShade = 0
  Selection.Font.ColorIndex = Tabelle11.Cells(7, 11)
  End With
  Range("B8:C8").Select
  With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ColorIndex = Tabelle11.Cells(8, 3)
    .TintAndShade = 0
    .PatternTintAndShade = 0
  Selection.Font.ColorIndex = Tabelle11.Cells(8, 11)
  End With

Vielleicht hilft dieses Bild noch dabei:

Bild zum Beitrag
Microsoft Excel, VBA

Meistgelesene Beiträge zum Thema Microsoft Excel