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
Anzeige