Wobei RGB(0, 0, 235) für Blau steht. Ich benötige aber andere Farben (schwarz, rot, grün und gelb) Nun habe ich mir eine Farmindex Liste erstellt:
Sub Farben() Dim i As Integer Dim z As Integer Dim s As Integer s = 1 z = 2 For i = 1 To 25 ActiveSheet.Cells(i, 1) = i ActiveSheet.Cells(i, 2).Interior.ColorIndex = i Next i End Sub
Das hat auch funktioniert. Wähle ich nun in eine Zelle mit der gewünschten Farbe (z.B. Gelb) und lasse mir über eine MsgBox
Sub GetColor() MsgBox "index: " & ActiveCell.Interior.ColorIndex & ", " & _ "Nummer: " & ActiveCell.Interior.Color End Sub
den RGB Wert ausgeben, erhalte ich die Meldung: Index 6, Nummer 65535. Diesen Wert akzeptiert Excel aber nicht und ich weiß nun nicht weiter und hoffe auf eure Hilfe. Mir würde es schon genügen, wenn ich den RGB Code für Schwarz, Rot, Grün und Gelb bekommen würde. Mein System ist Windows 11, Office 2021 LG Wilfried
23.01.2025, 13:30 (Dieser Beitrag wurde zuletzt bearbeitet: 23.01.2025, 13:43 von {Boris}.)
Hi,
ich häng Dir mal ne Datei dazu an. Mit den Schiebereglern kannst Du die Farben selbst mischen. Zusätzlich kannst Du R,G,B auch manuell eingeben. Add-On: Die Schriftfarbe (weiß oder schwarz) optimiert sich automatisch anhand der Hintergrundfarbe.
Nachtrag: Ich hab in der Datei den Farbcode benutzt, der sich aus RGB errechnet: =Rot+Grün*256+Blau*256^2
da bist du ein Stück weit auf dem Holzweg. Der Colorindex ist ein Relikt aus alten Excelzeiten, wo Excel nur 56 Farben gleichzeitig darstellen konnte. Wobei der Index gar nicht für eine bestimmte Farbe stand. Die Farbnummer 65535 ist der Wert, der tatsächlich für gelb steht. Mit der Zeile Cells(1, 1).Interior.Color = 65535 kannst du die Zelle A1 gelb färben. Das wäre auch der aktuell gültige Weg. Schwarz hätte zum Beispiel den Wert 0 und rot den Wert 255. Etwas mehr dazu findest du hier: https://excelwelt.eu/Excelallg/farb2010.html
Viele Grüße Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden
Diesen Wert akzeptiert Excel aber nicht ? WIE hast du es denn versucht? Etwa mit RGB? Cells(1,1).Interior.Color=65535 muss es lauten und weder Cells(1,1).Interior.ColorIndex=65535 noch irgendwas mit RGB. Die Funktion RGB errechnet nur aus den Werten für Rot, Grün und Blau den Long-Wert , der gebraucht wird.
im einfachsten Fall markierst du das Shape und kannst dann über "Füllefekte->weitere Füllfarben" einen Dialog öffnen, in dem du dann für deine gewünschte Farbe die RGB-Werte auslesen kannst.
Hallo ihr fleißigen Helfer, zunächst meinen herzlichen Dank für all eure Tipps. Mir ist aufgefallen, dass in euren Tipps immer von einer Zellenfärbung gesprochen wird (oder habe ich etwas übersehen?). Das trifft auf mein Problem aber nicht zu. Ich möchte ein Objekt (in meinem Fall die Objekte Ellipse1, Ellipse1 und Ellipse3) mit den Farben schwarz, grün, gelb oder grün einfärben. Es muß nicht RGB sein, wenn es eine andere Lösung gibt, bin ich für eine Lösung dankbar.