Hvilken funktion skal man bruge

Så er du nok nødt til at lave det som en makro der kører ved WorkSheet_Change.

Hvordan gør man det?

Er det for en eller flere celler du skal bruge det?

Og hvad skal du checke for?

Indsæt denne i dit ark modul. tilføj selv flere case betingelser


Private Sub worksheet_change(ByVal target As Range)

With target

Select Case target.Value
Case "A"
.Interior.ColorIndex = 4
Case "B"
.Interior.ColorIndex = 5
Case Else
.Interior.ColorIndex = xlNone
End Select

End With

End Sub

Den skal bruges over flere celler. Den skal fx skifte baggrundsfarve til blå hvis man skriver F21 i en celle og til grøn hvis man skriver F46.

Tryk Alt+F11, dobb. klik på ark1(ark1), og sæt denne tekst ind:

Private Sub Worksheet_Change(ByVal Target As Range)
Vaerdi = Target.Value
    With Selection.Interior
Select Case Vaerdi
    Case "1"
        .ColorIndex = 46
    Case "2"
        .ColorIndex = 3
    Case "ja"
        .ColorIndex = 2
    Case Else
End Select
    .Pattern = xlSolid
End With
End Sub

Hov mrjh. Så ikke lige du var der.

Virker kun inden for A1:C100 f.eks.

Private Sub worksheet_change(ByVal target As Range)
If Not Intersect(Range("A1:C100"), target) Is Nothing Then
With target
    Select Case target.Value
        Case "A"
        .Interior.ColorIndex = 4
        Case "B"
        .Interior.ColorIndex = 5
        Case Else
        .Interior.ColorIndex = xlNone
    End Select
End With
End If
End Sub

Ok akyhne, så prøver jeg også lige at opdatere :-)
Ser ud til vi foreslår næsten det samme

Jeg har kigget på eksempel, men jeg er hele ny, hvad angår VBA og kan ikke finde ud af hvad jeg skal gøre for at få den til at virke.

Åbn Excel, tryk Alt+F11 for at komme i VBA editoren. Dobbeltklik på Ark1(Ark1) i øverste venstre hjørne, smid koden ind. Gå tilbage til arket og test.

Det har jeg prøvet, men det virker ikke. Skal man ikke skrive et eller andet sted i koden, hvad der skal stå i celler før den skifter farve.

Du skal ændre "A", "B" o.s.v. til din egen tekst lige efter Case i koden. Altså

Private Sub worksheet_change(ByVal target As Range)
If Not Intersect(Range("A1:C100"), target) Is Nothing Then
With target
    Select Case target.Value
        Case "DIN TEKST"
        .Interior.ColorIndex = 4
        Case "DIN TEKST"
        .Interior.ColorIndex = 5
        ' O.s.v.

Case Else
        .Interior.ColorIndex = xlNone
    End Select
End With
End If
End Sub

Farverne ændrer du efter .interior.colorindex = Farvekode

Hvor kan man finde oversigt over farvekoderne

Se her

http://www.smartoffice.dk/Tips/LibrarySource.asp?App=Excel&Lib=ColorIndex

Tak for hjælpen. Gider du at give et svar så du kan få dine point

Selvtak. Du får et svar. Fik du det til at virke ?

Ja. Jeg fik det til at virke.

Hej
Jeg er meget interesseret i ovennævnte med farvekoderne. Jeg er ikke ekspert i VBA, men har dog indspillet en del makroer.

Når jeg i editoren indspiller ovennævnte kode for senere at redigere den, bliver den ikke gemt. Dvs. når jeg går tilbage til mit xls. ark er der ingen makro. Hvad gør jeg galt - virker jo som makroen ikke bliver gemt?

Hilsen
Elmer

PS! Bær over med mig, er helt ny bruger

Nu fandt jeg selv ud af det :-)

Skal programmet returnere en farvekode med værdien indeholdt i cellen, kan man skrive dette program. Det er relativt hurtigt at koipere og editiere, hvis det er et stort program. Jeg erfarede af VBA kun kunne have ca. 600 linier ad gangen, så jeg måtte lave mange moduler.

Indtast nedenstående i VBA: (Celler og farvekoder  er tilfældige)
sub Farve()
If Range("c8") = 0 Then Range("c8").Interior.ColorIndex = 2
If Range("c8") = 1 Then Range("c8").Interior.ColorIndex = 15
If Range("c8") = 2 Then Range("c8").Interior.ColorIndex = 3
If Range("c8") = 3 Then Range("c8").Interior.ColorIndex = 20
If Range("c8") = 4 Then Range("c8").Interior.ColorIndex = 27
If Range("c8") = 5 Then Range("c8").Interior.ColorIndex = 4
If Range("d8") = 0 Then Range("d8").Interior.ColorIndex = 2
If Range("d8") = 1 Then Range("d8").Interior.ColorIndex = 15
If Range("d8") = 2 Then Range("d8").Interior.ColorIndex = 3
If Range("d8") = 3 Then Range("d8").Interior.ColorIndex = 20
If Range("d8") = 4 Then Range("d8").Interior.ColorIndex = 27
If Range("d8") = 5 Then Range("d8").Interior.ColorIndex = 4
If Range("e8") = 0 Then Range("e8").Interior.ColorIndex = 2
If Range("e8") = 1 Then Range("e8").Interior.ColorIndex = 15
If Range("e8") = 2 Then Range("e8").Interior.ColorIndex = 3
If Range("e8") = 3 Then Range("e8").Interior.ColorIndex = 20
If Range("e8") = 4 Then Range("e8").Interior.ColorIndex = 27
If Range("e8") = 5 Then Range("e8").Interior.ColorIndex = 4
If Range("c9") = 0 Then Range("c9").Interior.ColorIndex = 2
If Range("c9") = 1 Then Range("c9").Interior.ColorIndex = 15
If Range("c9") = 2 Then Range("c9").Interior.ColorIndex = 3
If Range("c9") = 3 Then Range("c9").Interior.ColorIndex = 20
If Range("c9") = 4 Then Range("c9").Interior.ColorIndex = 27
If Range("c9") = 5 Then Range("c9").Interior.ColorIndex = 4
If Range("d9") = 0 Then Range("d9").Interior.ColorIndex = 2
If Range("d9") = 1 Then Range("d9").Interior.ColorIndex = 15
If Range("d9") = 2 Then Range("d9").Interior.ColorIndex = 3
If Range("d9") = 3 Then Range("d9").Interior.ColorIndex = 20
If Range("d9") = 4 Then Range("d9").Interior.ColorIndex = 27
If Range("d9") = 5 Then Range("d9").Interior.ColorIndex = 4
If Range("e9") = 0 Then Range("e9").Interior.ColorIndex = 2
If Range("e9") = 1 Then Range("e9").Interior.ColorIndex = 15
If Range("e9") = 2 Then Range("e9").Interior.ColorIndex = 3
If Range("e9") = 3 Then Range("e9").Interior.ColorIndex = 20
If Range("e9") = 4 Then Range("e9").Interior.ColorIndex = 27
If Range("e9") = 5 Then Range("e9").Interior.ColorIndex = 4

Hilsen
Mogens

Er det store områder er det bedre med noget lignende:

Sub FarvFelter()
Dim X As Range
Dim Y As Range
Set Y = Range("C8:E8")
For Each X In Y
    If X = "0" Then
        X.Interior.ColorIndex = 2
    Else
        X.Interior.ColorIndex = 0
    End If
Next
End Sub

Tak Akyhne, det fungerer faktisk.

Nu ike fordi jeg har lavet så meget arbejde, som min kopiering antyder. Editoren har lavet det meste. Men den lettere udgave har også specielt det gode, at man ikke behøver samle kommandoerne i flere moduler. Tilsyneladende kan den enkelte makro kun konsumere ca. 600 linier.

Hilsen
Mogens