Betinget formatering. Excel 7

Indsæt denne i arkets kodemodul

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A1:A95"), Target) Is Nothing Then
Application.ScreenUpdating = False
ActiveSheet.Unprotect
    With Target
    Select Case Target.Value
' Et 1 tal i kolonne A, farver kolonne b rød  i samme række
    Case "1"
        ActiveCell.Offset(-1, 1).Interior.ColorIndex = 3
        ActiveCell.Offset(-1, 1).Font.ColorIndex = 1
' Et 2 tal i kolonne A, farver kolonne b gul  i samme række
    Case "2"
        ActiveCell.Offset(-1, 1).Interior.ColorIndex = 6
        ActiveCell.Offset(-1, 1).Font.ColorIndex = 1
' Et 3 tal i kolonne A, farver kolonne b grøn  i samme række
    Case "3"
        ActiveCell.Offset(-1, 1).Interior.ColorIndex = 4
        ActiveCell.Offset(-1, 1).Font.ColorIndex = 1
' Et 4 tal i kolonne A, farver kolonne b blå  i samme række
    Case "4"
        ActiveCell.Offset(-1, 1).Interior.ColorIndex = 5
        ActiveCell.Offset(-1, 1).Font.ColorIndex = 1
      Case Else
        ActiveCell.Offset(0, 5).Interior.ColorIndex = xlNone
        ActiveCell.Offset(0, 5).Font.ColorIndex = xlAutomatic
    End Select
 
End With
End If
Application.ScreenUpdating = True
'ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
End Sub

Range("A1:A95"), Skal selvfølgelig være Range("B1:B95"),

Nu er den rettet, (den er sakset fra et ark jeg selv bruger)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B1:B95"), Target) Is Nothing Then
Application.ScreenUpdating = False
ActiveSheet.Unprotect
    With Target
    Select Case Target.Value
' Et 1 tal i kolonne B, farver kolonne b rød  i samme række
    Case "1"
        ActiveCell.Offset(-1, 1).Interior.ColorIndex = 3
        ActiveCell.Offset(-1, 1).Font.ColorIndex = 1
' Et 2 tal i kolonne B, farver kolonne b gul  i samme række
    Case "2"
        ActiveCell.Offset(-1, 1).Interior.ColorIndex = 6
        ActiveCell.Offset(-1, 1).Font.ColorIndex = 1
' Et 3 tal i kolonne B, farver kolonne b grøn  i samme række
    Case "3"
        ActiveCell.Offset(-1, 1).Interior.ColorIndex = 4
        ActiveCell.Offset(-1, 1).Font.ColorIndex = 1
' Et 4 tal i kolonne B, farver kolonne b blå  i samme række
    Case "4"
        ActiveCell.Offset(-1, 1).Interior.ColorIndex = 5
        ActiveCell.Offset(-1, 1).Font.ColorIndex = 1
      Case Else
        ActiveCell.Offset(0, 1).Interior.ColorIndex = xlNone
        ActiveCell.Offset(0, 1).Font.ColorIndex = xlAutomatic
    End Select
 
End With
End If
Application.ScreenUpdating = True
'ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
End Sub

Jeg prøver den lige

Jeg ved ikke hvor den skal ind.
Skal det stå som makro eller hvor skal den tastes.

Jeg er inde i vba modulet. men ved ikke hvor

jeg skal bruge den sådan at det er række a som skal skifte farve hvis tallet i række b har den valgde værdig.

Vil du maile et eksembel til mig. tni@os.dk

Har tastet den ind. Og den er rigtig nok. Men den kører ikke

I det ark du skal bruge koden, højreklikker du på arkfanen og vælger "Vis programkode". I den tomme rude i højre side indsættes koden. (kopier og indsæt den).
Denne er rettet så kolonne A farves efter hvad der står i kolonne B.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B1:B95"), Target) Is Nothing Then
Application.ScreenUpdating = False
ActiveSheet.Unprotect
    With Target
    Select Case Target.Value
' Et 1 tal i kolonne B, farver kolonne A rød  i samme række
    Case "1"
        ActiveCell.Offset(-1, -1).Interior.ColorIndex = 3
        ActiveCell.Offset(-1, -1).Font.ColorIndex = 1
' Et 2 tal i kolonne B, farver kolonne A gul  i samme række
    Case "2"
        ActiveCell.Offset(-1, -1).Interior.ColorIndex = 6
        ActiveCell.Offset(-1, -1).Font.ColorIndex = 1
' Et 3 tal i kolonne B, farver kolonne A grøn  i samme række
    Case "3"
        ActiveCell.Offset(-1, -1).Interior.ColorIndex = 4
        ActiveCell.Offset(-1, -1).Font.ColorIndex = 1
' Et 4 tal i kolonne B, farver kolonne A blå  i samme række
    Case "4"
        ActiveCell.Offset(-1, -1).Interior.ColorIndex = 5
        ActiveCell.Offset(-1, -1).Font.ColorIndex = 1
      Case Else
        ActiveCell.Offset(0, -1).Interior.ColorIndex = xlNone
        ActiveCell.Offset(0, -1).Font.ColorIndex = xlAutomatic
    End Select
 
End With
End If
Application.ScreenUpdating = True
'ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
End Sub