Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
Screenshot zu MsgBox	MsgBox-Seite mit Beispielarbeitsmappe aufrufen

RGB Farbe herrausfinden

• RGB Farbe herrausfinden von Basti vom 03.09.2004 14:43:12
• AW: RGB Farbe herrausfinden - von th.heinrich am 03.09.2004 15:03:08
• AW: RGB Farbe herrausfinden - von K.Rola am 03.09.2004 15:04:32
  • AW: RGB Farbe herrausfinden - von Basti am 03.09.2004 15:11:33

Betrifft: RGB Farbe herrausfinden von: Basti
Geschrieben am: 03.09.2004 14:43:12

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


Betrifft: AW: RGB Farbe herrausfinden von: th.heinrich
Geschrieben am: 03.09.2004 15:03:08

hallo Basti,

evtl. hilft dies weiter.

https://www.herber.de/forum/archiv/440to444/t441931.htm

gruss thomas




Betrifft: AW: RGB Farbe herrausfinden von: K.Rola
Geschrieben am: 03.09.2004 15:04:32

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




Betrifft: AW: RGB Farbe herrausfinden von: Basti
Geschrieben am: 03.09.2004 15:11:33

Jo genau so wollte ich das haben

Danke Rola:)
Gruss Basti