Datum und Zeit - Abhängig

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 97
nach unten

Betrifft: Datum und Zeit - Abhängig
von: Peter
Geschrieben am: 07.05.2002 - 17:26:41

Sub Auto_Open()
Dat = Date
If Dat < DateSerial("2002", "05", "25") Then
MsgBox "Nitschewo!!!"
ActiveWorkbook.Close
End If
End Sub

klappt !! - Danke

ich habe es versucht auch noch eine bestimmte Zeit "14:00:00" vorzugeben, habe es aber mit TimeSerial nicht hinbekommen - ich kann mir aber auch vorstellen das der Makro jetzt ganz anders aussieht, oder ... ?!?!

Im voraus Danke

nach oben   nach unten

Re: Datum und Zeit - Abhängig
von: Hans W. Herber
Geschrieben am: 08.05.2002 - 07:10:52

Hallo Peter,

sowohl bei TimeSerial wie auch bei DateSerial werden als Parameter Integer-Werte, keine Strings erwartet. Für Zeit also:
TimeSerial(14, 0 0)
für 14:00

hans

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Excel von Access öffnen"