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:
Danke für den Stern.