Jeg har skrevet følgende i celle A1:
Kode {=HVIS(OG(ELLER(E2:I4=A2);ELLER(E6:I8=A2));1;0)} |
Du laver {} ved at afslutte formelindtastningen med ctrl+shift+enter.
Formlen skriver 1 i A1, hvis navnet i A2 optræder i begge celleområder E2:I4 og E6:I8 - ellers skrives 0.
Dernærst har jeg lavet følgende VBA-kode, som skal indsættes i ThisWorkbook under Workbook/Sheetchange:
Kode Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Range("A1") = 1 Then
Range("A1").Interior.ColorIndex = 3
Else
Range("A1").Interior.ColorIndex = xlNone
End If
End Sub |
På den måde ændres baggrundsfarven i A1 til rød, hvis navnet i A2 optræder i begge celleområder E2:I4 og E6:I8. Hvis ikke, så skiftes til ingen baggrundsfarve.
Simon