Bestand openen - MSG na x dagen

[Albatros]

Hoi,

Na een weekendje met draaitabellen gestoeid te hebben, heb ik weer een volgende uitdaging.
Ik probeer twee makro’s te combineren, maar helaas lukt dat niet.
1.bij het openen van het bestand wordt tabblad 1 opgestart. (Dit lukt nog wel)
2.in het tabblad staat de huidige datum =nu(), en een datum die handmatig ingevuld wordt . Het verschil hiertussen wordt berekend. Is het verschil > 7 dagen, dan wil ik een MSG box zien met een mededeling.

Mijn probeersel is als volgt:

Private Sub Workbook_Open()
Sheets("blad1").Activate
    If Target.Address = "$A$15" Then
        If Target.Value > 7 Then
            MsgBox "Waarde is hoger dan 7!"
        End If
    End If
End Sub

Wie kan de "final-touch"geven?
Albatros

 

[dropl]

Ken je de functie datediff ?
http://www.techonthenet.com/excel/formulas/datediff.php

 

[Wigi]

Wat komt die Target daar ineens doen?

Maak het niet te moeilijk, dit is al voldoende:

Private Sub Workbook_Open()
    If Sheets("Blad1").Range("A13").Value - Sheets("Blad1").Range("A14").Value > 7 Then
        MsgBox "Waarde is hoger dan 7!"
    End If
End Sub

En NU() heb je niet nodig, VANDAAG() is al voldoende.

Wigi

 

[Albatros]

dropl,
Bedankt voor het meedenken, maar met "datediff" kwam ik er niet mee verder, Wel heb ik er een leuke makro aan over gehouden om mijn leeftijd uit te rekenen.

Wigi, (tromgeroffel......)
Bedankt voor de oplossing :thumb: :thumb:
Het werkt precies zoals ik had bedoeld!

(Ik gebruik meestal =nu(), omdat dat sneller typen is )

Albatros