Macro til formattering

Du kan jo bruge Formatering | Betinget formatering til det samme....!

flemmingdahl> Meget lækker funktion - vidste ikke den eksisterede

Sub RoddingFormat()
    Dim rCell As Range

    On Error Resume Next
    For Each rCell In Selection
        Select Case rCell.Value
            Case Is <= 0.8
                rCell.Interior.ColorIndex = 3
            Case Is <= 1
                rCell.Interior.ColorIndex = 10
            Case Else
                rCell.Interior.ColorIndex = xlAutomatic
        End Select
    Next rCell

    On Error Goto 0
    Set rCell = Nothing
End Sub

Betinget formatering kan ikke skelne blankt og 0(nul.
Kan macroen det?

Og hvad med resten af spørgsmålet - mht permanent placering i Excel.

Den kan betinget formatering nu godt blankt er ""

Denne makro kan:

Sub RoddingFormat()
    Dim rCell As Range

    On Error Resume Next
    For Each rCell In Selection
        Select Case rCell.Value
            Case Is = ""
                rCell.Interior.ColorIndex = xlAutomatic
            Case Is <= 0.8
                rCell.Interior.ColorIndex = 3
            Case Is <= 1
                rCell.Interior.ColorIndex = 10
            Case Else
                rCell.Interior.ColorIndex = xlAutomatic
        End Select
    Next rCell

    On Error GoTo 0
    Set rCell = Nothing
End Sub

Prøv at starte makrobåndoptageren, så vil du kunne vælge at gemme makro'en en personlig workbook - den er altid tilgængelig på din maskine.

Betinget formatering:

Betingelse 1

celleværdien er    større end    0,8      farve grøn

Betingelse 2

celleværdien er  lig med    =IKKE(ER.TOM(A1))    ingen farve

Betingelse 3

celleværdien er    mellem    0  og  0,8      farve grøn



så skulle det virke

celleværdien er    mellem    0  og  0,8      farve rød

Tak for det

M.h.t. betinget formattering så har jeg brug for flere end 3 betingelser,
det kunne jeg godt have oplyst, men ellers tak for budene.

( M.h.t. betinget formattering så har jeg brug for flere end 3 betingelser,
det kunne jeg godt have oplyst, men ellers tak for budene. )

Ja, du spurgte efter 3 betingelser, og så siger du, efter at have fået svar, at du skulle bruge flere.

Synes du ikke det er unfair at lave om, efter at du har fået svar, og så ikke give point.

Hvis du vil give point, så del dem imellem svarene, så vi kan få afsluttet.

Rolig rolig og undskyld, jeg er jo åbenbart kommet til at trykke send istedet for accepter.
(det var iøvrigt en macro jeg forespurgte)

Nu gjorde jeg det s.. igen.

igen (Det er åbenbart for tidlig på dagen)