Microsoft Excel

Herbers Excel/VBA-Archiv

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

RGB Farbe herrausfinden

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