Justes
Gebruiker
- Lid geworden
- 7 sep 2004
- Berichten
- 692
Hallo,
Wat is er mis, met de eerste datum gaat het perfect, meerdere niet ik heb het liever met datum in cel B1.
GroPrivate Sub Workbook_BeforeClose(Cancel As Boolean)
Dim MijnDatum, MijnTijd
Sheets("verzamelstaat").Activate
MijnDatum = DateValue("30 april 2007")
MijnDatum = DateValue("31 mei 2007")
MijnDatum = DateValue("30 juni 2007")
MijnDatum = DateValue("31 juli 2007")
MijnDatum = DateValue("31 augutus 2007")
MijnDatum = DateValue("30 september 2007")
MijnDatum = DateValue("31 oktober 2007")
MijnDatum = DateValue("30 november 2007")
MijnDatum = DateValue("31 december 2007")
MijnTijd = TimeValue("0:00:01 pM")
If Now > MijnDatum + MijnTijd Then
Range("B5
1510").ClearContents
End If
End Sub
Groeten Justes
Wat is er mis, met de eerste datum gaat het perfect, meerdere niet ik heb het liever met datum in cel B1.
GroPrivate Sub Workbook_BeforeClose(Cancel As Boolean)
Dim MijnDatum, MijnTijd
Sheets("verzamelstaat").Activate
MijnDatum = DateValue("30 april 2007")
MijnDatum = DateValue("31 mei 2007")
MijnDatum = DateValue("30 juni 2007")
MijnDatum = DateValue("31 juli 2007")
MijnDatum = DateValue("31 augutus 2007")
MijnDatum = DateValue("30 september 2007")
MijnDatum = DateValue("31 oktober 2007")
MijnDatum = DateValue("30 november 2007")
MijnDatum = DateValue("31 december 2007")
MijnTijd = TimeValue("0:00:01 pM")
If Now > MijnDatum + MijnTijd Then
Range("B5

End If
End Sub
Groeten Justes