Datei n mehr öffnen, wenn best. Datum überschrittn
Elmar
ich möchte eine Excel-Datei nicht mehr öffnen lassen, wenn ein bestimmtes Datum überschritten ist und habe mir dazu folgendne Code ausgedacht.
Sub Test()
Datum = InputBox("Datum", "", "28.04.04")
If Now > Datum Then
MsgBox ("Datum ist größer - zumachen")
Else
MsgBox ("Datum ist kleiner - laufenlassen")
End If
End Sub
Aber es haut nicht hin, da Now Datum und Uhrzeit hat....
Was muß ich tun, wie geht das?
Vielen Dank fürs Lesen, Eindenken und Antworten!
liebe e-Grüße
Elmar
Anzeige