Hej
Är det någon som kan hjälpa mig med problemet med att få färger i Excel-vb
Om jag har en specifik area (c10:ag45) och jag markerar en cell inom området och skriver "A" så skall denna färgas röd eller om jag skriver "B" så skall denna bli blå osv... Jag vill kunna ange ca 5-10 olika färger. Jag vet att det finns en automation i Excel " Conditional formatting" men jag vill ha en vbkod.
Någon som vet en bra lösning
Tack Ejnar

Titta på objektet range - tror det har en backcoloregenskap.

sen kan du i ditt program definiera Konstanter, där a = färgkod för röd etc...

/Emma

Du kan jo også spille inn et macro og se på koden som generes av Excel..

Den här koden färgar området med olika färger beroende vilken bokstav du skriver in
Du får fylla på med fler koder och kodnr

Koden skall ligga i bladets kodmodul

<code>
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bgColor

If Not Application.Intersect(Range(Target.Address), Range("C10:AG45")) Is Nothing Then
Select Case UCase(Left(Target.Value, 1))
Case "A": bgColor = 1
Case "B": bgColor = 2
Case "C": bgColor = 3
Case "D": bgColor = 4
Case "E": bgColor = 5
Case "F": bgColor = 6
Case Else: bgColor = 1
End Select
Me.Range("C10:AG45").Interior.ColorIndex = bgColor
End If
End Sub

</code>

Tack alla för era inlägg.
Det hjälpte mig verkligen

Ejnar