Hvordan laver man farver i rullemenuer ?

Er det en rulleliste oprettet i datavalidering - eller?

Ja... Beklager svartiden. Jeg troede man fik en mail, når der var svar :-)

Det kan godt tage lidt tid før mailen når frem.

Ok - der kan ikke lægges farver ind i en sådan rulleliste - så vidt jeg ved - men det kan gøres på andre måder.

Hvad er formålet?

Formålet er at lave et opfølgningsark, så man kan se om en opgave kører som den skal. Sådan lidt projekt-agtigt. Så man kan angive om en opgave har en status der er rød, gul eller grøn (eller neutral)

Vender tilbage senere..

Hvis muligt ville det være en fordel at kunne se regnearket/model heraf via Upload. Det ville være lettere at komme med et forslag - det kunne f.eks. være en makro.

Jeg kan ikke finde et sted at uploade.. Skriv gerne til mig på dj@kolonihave.dk :-)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim arkNavn As String, adr As String
    Application.ScreenUpdating = False
    arkNavn = ActiveSheet.Name
    adr = Target.Address
   
    indhold = ActiveCell.Text
    farve = findFarve(indhold)
   
    Sheets(arkNavn).Activate
    Range(adr).Select
    Selection.Interior.Color = farve
   
End Sub
Private Function findFarve(tekst)
Dim p As Integer, navneDef As String, arkNavn As String, område As String
    With ActiveWorkbook.Names(1)
        navneDef = Replace(.RefersTo, "='", "")
        navneDef = Replace(navneDef, "'", "")
       
        p = InStr(navneDef, "!")
        If p > 0 Then
            arkNavn = Left(navneDef, p - 1)
           
            område = Mid(navneDef, p + 1)
        End If
       
        Sheets(arkNavn).Activate
       
        For Each cc In ActiveSheet.Range(område).Cells
            If tekst = cc.Text Then
                farve = cc.Interior.Color
                findFarve = farve
                Exit Function
            End If
        Next
    End With
End Function