Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum/Zeit vergleichen

Forumthread: Datum/Zeit vergleichen

Datum/Zeit vergleichen
13.09.2005 20:32:16
Tatiana
Sorry, aber ich habe noch eine Frage...
Ich muss machen, dass nach eine bestimmte Zeit/Datum man kann nicht mein File oeffnen. Es heisst ich will dass mein Aktuelle Zeit (das habe ich geschafft fuer A1 zu machen) mit eine Zeit in Zukunft vergleichen...
Aber irgendwas stimmt nicht...

Private Sub Workbook_Open()
If Cells(1, 1).Value > ("20:00:00") Then
MsgBox ("Du kannst mich mal")
End If
End Sub

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum/Zeit vergleichen
13.09.2005 20:41:14
Axel
Hallo Tatiana,
Du warst schon auf dem richtigen Weg. Verwende die "TimeValue"- Funktion.
Es muss heissen ....

Sub Vergleich()
If Cells(1, 1).Value > TimeValue("20:00:00") Then
MsgBox ("Du kannst mich mal")
End If
End Sub

Gruß Axel
Anzeige
AW: Datum/Zeit vergleichen
13.09.2005 20:55:55
Tatiana
Ups, habe vergessen message fuer mein Chef zu loeschen...:)
Merci, Alex! jetzt geht es!
AW: Datum/Zeit vergleichen
14.09.2005 08:01:17
Tatiana
Es darf doch nicht wahr sein... Gestern hat alles funktioniert, heute habe ich mismatch error.... Er muesste aber nach ein bestimmte Datum file nicht mehr aufmachen.
Option Explicit

Private Sub Workbook_Open()
If Date > CDate("12. September,2005") Then
MsgBox ("please download our new version")
ActiveWorkbook.Close
End If
End Sub

Anzeige
AW: Datum/Zeit vergleichen
14.09.2005 08:12:07
Tatiana
Habe schon rausgefunden.:) Franzoesische PC hat einfach Datum nicht verstanden. Wenn jemand mal braucht - hier ist die Loesung.
_______________________________________
Option Explicit

Private Sub Workbook_Open()
If Date > CDate("12/09/2005") Then
MsgBox ("du kannst mich mal")
ActiveWorkbook.Close
End If
End Sub

Anzeige
wenn beantwortet, dann nicht offen lassen o.T.
14.09.2005 15:46:03
geschlossen!
.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige