Tekst van een variabele kleuren (VBA)

[chermans74]

Het volgende,

Met een macro zet ik 2 varibelen op (A en B) beide zijn tekst. De lengte van A en B zijn altijd verschillend.
Nu selecteer ik een cel en deze wil ik als volgt vullen;
selection = A + B.
Nu zou ik graag de tekst van variabele B rood willen laten kleuren.
Heeft iemand enig idee hoe dit werkt.

Alvast bedankt,
C. Hermans

 

[edmoor]

Alles over Excel VBA en het kleuren van een tekst of een cel:
http://www.cpearson.com/excel/colors.aspx

 

[chermans74]

Dank voor uw reactie.
Uw aangehechte link heb ik doorgespit en ik kan datgene wat voor mij van toepassing is niet vinden.
De reden hiervoor is ongetwijfeld het feit dat ik een leek ben mbt VBA.
Zou u misschien een voorzetje kunnen geven.
Alvast bedankt,
Chermans.

 

[edmoor]

Ik wil best even kijken maar daarbij zou het wel handig zijn als je je macro hier even plaatst.
En zeg maar jij hoor :d

 

[chermans74]

Bedankt voor je reactie.
Het aangehechte bestand geeft weer wat ik bedoel.
Hier maak ik 3 variabelen die ik vervolgens in 1 cel (G9) samenvoeg. De lengte van de variabelen 'art code' en 'QTY' zijn altijd verschillend in.
Nu zou ik graag in cel G9, waar ik alles samenvoeg de variabele QTY (5000 in het voorbeeld) rood willen laten kleuren (dwz, de tekstkleur).

Nogmaals bedankt,

Groet,
Corwin.Bekijk bijlage Variabele kleuren in VBA.xlsm

 

[edmoor]

Vervang je bestaande macro eens door deze:

Sub Regel_Vullen()

Set artcode = Worksheets("Sheet1").Range("b4")
Set qty = Worksheets("Sheet1").Range("c4")
Set UOM = Worksheets("Sheet1").Range("d4")

Range("g9").Select
With Selection.Font
    .Color = -16776961
    .TintAndShade = 0
End With
Selection = artcode & "  " & "  " & qty & "    " & UOM

End Sub

 

[chermans74]

Ok, maar dan is alle tekst in cel G9 rood gekleurd. Ik zou graag zien dat alleen het getal 5000 rood kleurt.
Dus, 901101 5000 KG.
Is dit mogelijk?

Dank,
Corwin.

 

[edmoor]

Zo?

Sub Regel_Vullen()
Dim st As Integer
Dim ln As Integer
Set artcode = Worksheets("Sheet1").Range("b4")
Set qty = Worksheets("Sheet1").Range("c4")
Set UOM = Worksheets("Sheet1").Range("d4")

Range("g9").Select
st = Len(artcode) + 1
ln = st + Len(qty)
Selection = artcode & "  " & "  " & qty & "    " & UOM
Range("G9").Characters(Start:=st, Length:=ln).Font.ColorIndex = 3

End Sub

 

[chermans74]

PERFECT...........
Hartelijk dank.

Groet,
Corwin.

 

[edmoor]

Graag gedaan

 

[renieb]

rgb kleuren weergeven

Kan iemand me helpen met het weergeven van de rgb kleuren dmv een macro ?
In bijgevoegde map een voorbeeld van een opzet.
Kolom E, F en G zijn de RGB waarden . Graag zou ik dmv een macro in een keer alle kleuren laten weergeven in kolom H.

 

[edmoor]

Hier staan ze allemaal, met voorbeelden:
http://answers.officewriter.com/excels-color-palette-explained

 

[edmoor]

Er zit in je map al een macro (Knop1_Klikken) en die werkt bij mij goed.
De cellen in H krijgen keurig de gewenste kleur.
Ik werk met Office 2010 maar ik heb je bestand uitgebreid met een knopje.
Als je daarop klikt komen de kleuren in kolom H.

Bekijk bijlage Map1.xls

 

[renieb]

Bedankt .

Hoe kun je deze button incl de opdracht toevoegen ?

 

[edmoor]

Dat heb ik al voor je gedaan in het bestand dat ik als bijlage hebt toegevoegd in m'n vorige bericht.
Hoe dat moet kun je o.a. hier lezen:
http://office.microsoft.com/nl-nl/e...p-toevoegen-aan-een-werkblad-HP010236676.aspx

 

[renieb]

Bedankt voor deze geweldige info !!
ik ben er weer wijzer van geworden.

 

[edmoor]

Dat was de bedoeling :d

 

[renieb]

Beste Edmoor,

Zou u een macro met een knop kunnen maken waarbij in kolom H de behorende kleur verschijnt.
Ik krijg dit niet voor elkaar.

 

[edmoor]

Uiteraard.
Bij deze.

Bekijk bijlage receptcode (Juli).zip

Als extra heb ik er een knopje bijgemaakt die de kleur voor H weer op wit instelt.