Excel VBA Colour .Fill.ForeColor

[Ray_Mnd]

Hey to all.
i am new in this area and have a problem.
i need the formated color from $a (for example) in a programmed field.
i can do:
.Fill.ForeColor.RGB = RGB(255, 255, 0)
but the field is only yellow. this is what i found in my vba.
can anyone say me what i have to type so that the color from formated $a is taken in the new field?

color from $A


this is my code with yellow color:
With Worksheets(PMpav).Shapes.AddShape(msoShapeRectangle, xpav(numtypeop%, codop, nbmvt%), ypav(numtypeop%, codop, nbmvt%), durée_mvt(numtypeop%, codop, nbmvt%) * Echellex, hauteur_tâche%)
.TextFrame.Characters.Text = Worksheets(PMdon).Cells(rm, cl_tâche%).Value
.Fill.ForeColor.RGB = RGB(255, 255, 0)
'Text zur Anzeige im Haupblock Aufgabe
.TextFrame.Characters.Font.Bold = True
.TextFrame.Characters.Font.Size = 10




maybe anyone can help me,
Greetz

 

[jolivanes]

Re: "color from $a". What is "$a"?
What is a "programmed field" Would that be Range("A4:E11")?

 

[Ray_Mnd]

$A is the hole column A.
The Text from Column A goes in a field on the second sheet.

like this with the yellow color, but i need the color from column a in the field which is now yellow

 

[jolivanes]

Sub Vielleicht_So()
Sheets("Sheet1").Range("A1:A15").Copy
Sheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteFormats
End Sub

Sub Oder_So()
Sheets("Sheet2").Range("A1:A15").Interior.Color = Sheets("Sheet1").Range("A1:A15").Interior.Color
End Sub

 

[Ray_Mnd]

Sub Vielleicht_So()
Sheets("Sheet1").Range("A1:A15").Copy
Sheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteFormats
End Sub

Sub Oder_So()
Sheets("Sheet2").Range("A1:A15").Interior.Color = Sheets("Sheet1").Range("A1:A15").Interior.Color
End Sub

Ok, thx... I will try and report