Herbers Excel-Forum - das Archiv

workbook farben

Bild

Betrifft: workbook farben
von: Frank Sohn

Geschrieben am: 13.04.2005 14:23:10
Hallo,
Das geht ActiveWorkbook.Colors(i)=RGB(....)!
geht auch RGB=ActiveWorkBook.Colors(i), also die Umformung die Farbindex
in RGB?
Gruss
Frank
Bild

Betrifft: AW: workbook farben
von: K.Rola

Geschrieben am: 13.04.2005 14:48:06
Hallo,
so gehts vom Prinzip her:
Sub RGB_Farbe()
Dim Farbe As Long, R As Integer, G As Integer, B As Integer
Farbe = ActiveWorkbook.Colors(4)
R = Farbe And 255
G = (Farbe \ 256) And 255
B = Farbe \ 65536
MsgBox "Rot: " & R & Chr(10) & "Grün: " & G & Chr(10) & "Blau: " & B
End Sub
Gruß K.Rola

Bild

Betrifft: AW: workbook farben
von: Frank Sohn
Geschrieben am: 13.04.2005 15:22:38
Hallo,
ja genau, danke! Tja stand wohl auf der Leitung!

Gruss
Frank
 Bild
Excel-Beispiele zum Thema "workbook farben"
Fehler in Workbook_Open-Prozedur abfangen Arbeitsmappe anlegen und Workbook_Open-Prozedur schreiben
Aufhebung der Workbook_Open-Befehle verhindern Workbook_Open-Prozedur beim VBA-Aufruf ausschalten
Zellinnenfarben über VBA festlegen Ändern von Chart-Farben in Abhängigkeit der Daten
Tabelle nach Farben sortieren Artikel mit den in einem Farbindex hinterlegten Farben markieren
Shapes in Abhängigkeit von Zellwerten färben