skift fanefarve ved indtast af værdi i celle

Det vil kræve VBA programmering.

Smid denne kode ind i koden for "Ark 1" og gem din workbook som "Macro Enabled Workbook":

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Worksheet.Range("B13").Value <> "" Then
        With ActiveWorkbook.Sheets("Sheet5").Tab 'Change sheet name to suit needs
        .Color = 255 'Red
        .TintAndShade = 0
    End With
    Else
        With ActiveWorkbook.Sheets("Sheet5").Tab 'Change sheet name to suit needs
        .Color = xlAutomatic
        .TintAndShade = 0
    End With
    End If
End Sub

får fejl:

Run-time error "9":
Subscript out of range

når jeg trykker debug highlighter den:

With ActiveWorkbook.Sheets("Sheet5").Tab 'Change sheet name to suit needs

fandt fejlen!

Mange tak for hjælpen garrett