Formel og farvekoder til excel

Tryk Alt+F11, dobb. klik på ark1(ark1), og indsæt følgende:
----------
Private Sub worksheet_change(ByVal target As Range)
If Not Intersect(Range("A1:H100"), target) Is Nothing Then
With target
    Select Case target.Value
        Case "Jens"
        .Interior.ColorIndex = 34
        Case "Peter"
        .Interior.ColorIndex = 35
        Case "Karla"
        .Interior.ColorIndex = 36
        Case "Åse"
        .Interior.ColorIndex = 37
        Case "Lotte"
        .Interior.ColorIndex = 38
        ' O.s.v.

Case Else
        .Interior.ColorIndex = xlNone
    End Select
End With
End If
End Sub
----------
Husk at ændre område (Range) til det der passer med din vagtplan.
Navne ændres ligeledes til det der passer med dine personer.
Farveskema på diverse koder kan du finde her: http://www.smartoffice.dk/Tips/LibrarySource.asp?App=Excel&Lib=ColorIndex
Hver gang du taster et navn der er defineret med en farve i din kode, vil baggrunden i den pågældende celle få den angivne farve.
Håber at dette kan hjælpe dig videre.
/Be_Nice

Hej be nice

Når jeg trykker på alt+f11 blinker min skærm helt vildt.

hilsen Cunningham

Der åbner noget det hedder Microsoft visual basic mappe 1, inden jeg kan nå at dob. klik.

Hilsen Cunningham

Fandt selv ud af det, skulle bare højreklikke på ark1, så var den der. Sender du svar

God påske

Godt at du kunne bruge løsningen - God Påske
/Be_Nice