Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige