VBA Hent baggrundsfarve

jeg er ikke helt klar over om du mener farvenavnet, men nummeret findes sådan.

Public Sub Farve()
A = ActiveCell.Interior.ColorIndex
MsgBox A
End Sub

Min formulering kunne vist misforstås. Jeg prøver igen:

Et sted i min kode har jeg følgende:

With Range(Target.Address)
    .FormatConditions.Add Type:=2, Formula1:="TRUE"
    .FormatConditions(1).Interior.ColorIndex = iColor
End With

iColor variablen er defineret et andet sted.

Jeg ønsker nu, at brugeren skal kunne ændre variablen ved at vælge en farve i den dialogboks (farvepalette) man normalt bruger til at ændre baggrundsfarven i Excel.

Håber den formulering var bedre ....

Det må være noget i retning af:

iColor = Application.GetCelleBaggrundsFarve

At vise baggrundsfarvedialogboksen er nemt nok :-)  Men som jeg ser det, er der ikke umiddelbart nogen mulighed for at registrere hvad brugeren vælger i boksen. Man kan dog gå en omvej - hvis det er nødvendigt:

'Vis dialogboksen - Brugerfen vælger nu en farve, der tildeles den aktive celle
Application.Dialogs(xlDialogPatterns).Show
'Farven på den aktive celle aflæses og gemmes i variablen
icol = ActiveCell.Interior.ColorIndex
'Den aktive celle resettes til ingenting
ActiveCell.Interior.ColorIndex = -4142

Jeg håber at jeg har forstået problemet korrekt.

Prøv evt. med John Walkenbach's "Color Picker Dialog Box"
http://j-walk.com/ss/excel/tips/tip49.htm

Jeg har valgt at bruge princippet i jkrons løsning, men blackadders link til JW's color picker kan bestemt også bruges.

Smid et svar begge to.

:-)

Svar

janvogt >> Kunne du få det til at virke ?

Jep, beklager ventetiden!