Skift af status med formler (evt. flere hvis funktioner)

Hej

En mulighed kunne være en funktion.
Denne funktion skal ligge i et modul.
Ny kan du selv skrive hvilken status de forskellige dator skal vise.
Der checkes 'baglæns' for at finde den sidst indtastede dato.
Det er lavet så datoer ikke _skal_ stå i A1:A5 da de blot tages med som en Range.
Det er meget simpelt lavet, der checkes kun om en celle i området A1:A5 ikke er tom, så forventes det der er skrevet en dato.
Et hvilket som helst input der gør at cellen ikke er tom vil give denne status.

Function updateStatus(dates As Range) As String

Dim retVal As String

retVal = ""

If (dates.Cells(5, 1) <> "") Then
    retVal = "Sendt til kunde"
ElseIf (dates.Cells(4, 1) <> "") Then
    retVal = "Status 4"
ElseIf (dates.Cells(3, 1) <> "") Then
    retVal = "Status3"
ElseIf (dates.Cells(2, 1) <> "") Then
    retVal = "Status 2"
ElseIf (dates.Cells(1, 1) <> "") Then
    retVal = "status 1"
End If

updateStatus = retVal

End Function

og i F1  skriver du:
=updateStatus(A1:A5)

=HVIS(ER.TOM(E1);HVIS(ER.TOM(D1);HVIS(ER.TOM(C1);HVIS(ER.TOM(B1);HVIS(ER.TOM(A1);;"Status1");"Status2");"Status3");"Status4");"Sendt til kunde")

og velkommen til Eksperten,,

Tak for hurtigt svar.

Selv tak