kan iemand mij het volgende verklaren
With Selection.ShapeRange.Fill
.Visible = msoTrue
rgbcode = (colorval Mod 256) & ", " & ((colorval \ 256) Mod 256) & ", " & (colorval \ 65536)
.ForeColor.rgb = rgb(255, 0, 0)
' .ForeColor.color = rgbcode
.Transparency = 0
.Solid
End With
waarom werkt forolor.rgb wel
en waarom werkt forecolor.color niet
waarom werkt dit wel
colorval = Cells(1, 1).Interior.color
rgbcode = (colorval Mod 256) & ", " & ((colorval \ 256) Mod 256) & ", " & (colorval \ 65536)
Cells(3, 2).Interior.color = rgbcode
Cells(1, 3).Interior.color = colorval
waarom werkt beide code wel
Snap er niks meer van