Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

workbook farben

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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: workbook farben
13.04.2005 14:48:06
K.Rola
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

AW: workbook farben
13.04.2005 15:22:38
Frank
Hallo,
ja genau, danke! Tja stand wohl auf der Leitung!
Gruss
Frank
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige