Alarm, hvis dato overskrides.

noget ala dette vil måske kunne bruges

Dim Dato_1 As Date, Dato_2 As Date
Function TestDato(Dato As Variant, MaxDato As Variant) As Variant
    Application.Volatile
    Dato_1 = Dato
    Dato_2 = MaxDato
    If Year(Dato_1) >= Year(Dato_2) And Month(Dato_1) >= Month(Dato_2) Then
        If Month(Dato_1) > Month(Dato_2) Then
            MsgBox "Dato er over max dato"
        Else
            If Day(Dato_1) > Day(Dato_2) Then MsgBox "Dato er over max dato"
        End If
    End If
    TestDato = Dato
End Function

ligges i et modul

Bruger defineret formel:

=TestDato(Dato;MaxDato)

Hej Mondrup

Her med et andet forslag baseret på simple formler, og betinget formatering.


https://www.dropbox.com/s/i06fyx0juwy31t9/Alarm%20hvis%20dato%20overskrives.xlsx?dl=0

m v h mads32

Hej Mondrup

Hermed en tilrettet forslag

https://www.dropbox.com/s/wp851zxhonthl4r/Alarm%20hvis%20dato%20overskrives_B.xlsx?dl=0

m v h mads32

Hej Mads32.

forstår ikke helt dit eksempel. ;).

Hvad er formlen??

Mvh Michael

Hej Mondrup

Der er 2 formler. En formel for dato1 og en formel for dato2. Du har jo ønske om at kunne få alarm når en dato er overskredet, og en alarrm når en dato er overskredet med et år.

I kolonne B er indtastet en dato, og hvor der i kolonne E bliver alarmeret hvis datoen overskrides. Der er i denne celle indsat en formel, der markerer sidste dato. Der er til cellen oprettet en betinget formatering, som farver cellen rød, når teksten i cellen er "dato1 overskredet".

I kolonne C er indtastet en dato, og hvor der i kolonne G bliver alarmeret hvis datoen overskrides med 365 dage. Der er til cellen oprettet en betinget formatering, som farver cellen rød, når teksten i cellen er "dato2 overskredet med 1 år".

Du kan blot kopiere en linje og indsætte nye datoer, så kan du følge hvad der sker.

Jeg vedlægger en ny version, hvor der mangler datoer i kolonne B og C. Så kan du se hvad der sker hvis der ikke er datoer, hvad der sker når du kun indtaster dato i en af cellerne.

https://www.dropbox.com/s/l0h5ogodrvzd02m/Alarm%20hvis%20dato%20overskrives_C.xlsx?dl=0

m v h mads32