Betinget formatering afhængig af 4 resultater

Hvis VBA:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim farveNr As Integer
    If Target.Address = "$B$1" Then
        If Target = "" Then
            Range("A1").Interior.ColorIndex = xlColorIndexNone
        Else
            If Target = "Proces" Then
                Range("A1").Interior.ColorIndex = 6
            Else
                If Target = "Afvist" Then
                    Range("A1").Interior.ColorIndex = 3
                Else
                    If Target = "Godkendt" Then
                        Range("A1").Interior.ColorIndex = 4
                    End If
                End If
            End If
        End If
    End If
       
End Sub

Kan det mon klares med betinget formatering?

Ja

http://gratisupload.dk/vis/719181

VBA kunne også se sådan ud:

Tak for input.
Jeg fik desværre ikke nævnt, at jeg skal bruge løsningen i cellerne A1:A50 og tilsvarende tjekkes på samme rækkenr. i kolonne B.
Eks; A4 tjekker værdi i B4.

Betinget formatering:

http://gupl.dk/719187/

Hejsa og tak for jeres input.
Så kom jeg endelig i gang og har afprøvet lidt.

Den betingede formatering virker fint. Så det er en fin løsning.
Jeg kan dog godt tænke mig, at få VBA til at virke.

#5 Virker ikke, men jeg gør måske noget forkert.

Jeg har smidt koden i et "module".
Men jeg kan ikke lige se, hvordan jeg aktiverer koden.

Prøv at lægge kode "under det relevante ark"

Jeg takker for nogle superløsninger.
Smid venligst et svar :)

Lige et afsluttende spørgsmål.
I min ægte kode, har jeg valgmulighederne i kolonne H.
Dermed er VBA ændret til:

If Target = "Afvist" Then Target.Offset(0, -7).Interior.ColorIndex = 3

Men hvis jeg nu vil formatere cellerne i både kolonne A og kolonne B (fx A1:B1), hvordan skal Target,Offset() så angives.

Range(Target.Offset(0, -7), Target.Offset(0, -6)).Interior.ColorIndex = 6

PS: Eksempel fra række med "Proces"

Det er bare så perfekt. :)
Smider du et svar.

Jeg har allerede lagt et svar under #1

Jeg deler pointene. Vil Store-Morten smide et svar.

Ok, velbekomme

#5 Jeg har en lille udfordring, idet jeg får debug fejl, hvis jeg vil fx. vil rydde mit regneark. Jeg markerer området, jeg vil slette, herunder områderne, hvor jeg har angivet mine valg med fx "I proces", "Afvist", "Accept", og trykker på [Delete].
Det virker fint, hvis jeg blot slettet værdien i én celle, men det fejler ved et celleområde.

Nogen nem løsning?
Skal jeg oprette nyt spørgsmål, da jeg gerne giver 100 point.
Jeg kan også gøre det efter løsningen.




Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
        ActiveSheet.Unprotect
            If Not Application.Intersect(Target, Range("H3:H50")) Is Nothing Then
                If Target = "" Then Range(Target.Offset(0, -7), Target.Offset(0, -2)).Interior.ColorIndex = xlColorIndexNone
                If Target = "I proces" Then Range(Target.Offset(0, -7), Target.Offset(0, -2)).Interior.ColorIndex = 6
                If Target = "Afvist" Then Range(Target.Offset(0, -7), Target.Offset(0, -2)).Interior.ColorIndex = 3
                If Target = "Accept" Then Range(Target.Offset(0, -7), Target.Offset(0, -2)).Interior.ColorIndex = 4
            End If
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Application.ScreenUpdating = True
End Sub

Prøv denne, sletter celle farve til venstre for det markerde område, når der vælges "Delete" Dog også uden for område H3:H50