Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
476to480
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
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

RGB Farbe herrausfinden

RGB Farbe herrausfinden
03.09.2004 14:43:12
Basti

Sub test()
Dim red As Integer
Dim green As Integer
Dim blue As Integer
For red = 0 To 255
For green = 0 To 255
For blue = 0 To 255
If Range("B3").Interior.Color = RGB(red, green, blue) Then MsgBox (red & "    " & green & "   " & blue)
Next blue
Next green
Next red
End Sub

sieht leicht aus, ist leicht, aber läuft 5 stunden bis es eine farbe findet...
Ich will einfach eine Zelle angeben oder makieren, is ja an sich das gleiche und die RGB Farbe gesagt bekommen.
Gibts da eine leichtere Lösung?
Danke Basti

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: RGB Farbe herrausfinden
K.Rola
Hallo,

Sub RGB_Farbe()
Dim Farbe As Long, R As Integer, G As Integer, B As Integer
Farbe = ActiveCell.Interior.Color
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: RGB Farbe herrausfinden
03.09.2004 15:11:33
Basti
Jo genau so wollte ich das haben
Danke Rola:)
Gruss Basti
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige