Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1540to1544
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
Inhaltsverzeichnis

Datum mit Heute vergleichen

Datum mit Heute vergleichen
12.02.2017 20:51:20
Edwin
Hallo,
ich blicke es nicht.
In txtDatum steht der 01.02.2016 drin, also eindeutig kleiner als heute.
If txtDatum < CDate(Date) Then
MsgBox "txtDatum ist kleiner"
End If
Erst wenn ich txtDatum > CDate(Date) oder txtDatum > Date schreibe, kommt meine MsgBox.
Sorry, ich habe mich jetzt ganz unglücklich gegoogelt, finde aber den Fehler nicht.
LG
Edwin

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum mit Heute vergleichen
12.02.2017 21:02:22
Andre´
Hallo Edwin,
probier mal:
Sub Test()
Dim txt As Date
txt = "01.02.2016"
If txt 

MFG Andre
AW: Datum mit Heute vergleichen
12.02.2017 21:33:11
Edwin
Hallo,
es geht so auch nicht.
Könnte es etwas damit zu tun haben?
Bei txtDatum_Exit habe ich noch diese Formatierung drin.
txtDatum = Format(txtDatum , "dd.mm.yyyy")
Und nein, die Datei darf ich nicht senden.
LG
Edwin
AW: Datum mit Heute vergleichen
12.02.2017 21:08:06
onur
Hi,
Komisch, bei mir läuft es.
Kannst du die datei mal posten?
Gruß
Onur
AW: Datum mit Heute vergleichen
12.02.2017 21:46:07
Edwin
Ich habe die Lösung!
Ich habe das zweite Bier aufgemacht und dann funktioniert.
If txtDatum < CDate(Date) Then
MsgBox "txtDatum ist kleiner"
End If
Das mach ich beim nächsten Problem gleich so.
Ob ich es beim dritten Bier kapiere, warum es jetzt geht? ;-)
LG
Edwin
Anzeige

71 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige