Office: (Office 2016) If Datum < Heute Then

Hallo Leute,

ich stehe wieder vor dem Wald mit lauter Bäumen, vlt entdeckt ihr meinen Logikfehler:

Vorher habe ich noch als Public die UserForm.TextBox_Neuer_LT als "date" formatiert.
Der neue Liefertermin soll älter oder gleich heute sein, ansonsten soll es zur Fehlermeldung kommen.

Vielen Dank vorab!

 

Hallo SvenMakroAnfänger,

bei solchen Problemen hilft es oft, im Einzelschritt-Modus durch das Makro zu laufen und dir die Variablen anzusehen.
Int(Now()-1) ist eine Zahl (für heute 44686), aber kein Datum.

Um mit einem Datum zu rechnen nutze ich lieber die DateAdd-Funktion.

Gruß,
Lutz

 

Hallo,

ein älteres Datum heißt somit, dass diesem eine kleinere fortlaufende Zahl entspricht als einem jüngeren Datum - oder anders herum: Falls es sich um eine größere fortlaufende Zahl als die für das Heute-Datum handelt, liegt sie in der Zukunft und sollte nach deinen Anforderungen eine Fehlermeldung auslösen.
Darum muss nach meiner Logik die Fehlerabfrage lauten:

Code:

If UserForm.TextBox_Neuer_LT.Value > Int(Now()) Then
   MsgBox "Bitte, gib ein Datum in der Vergangenheit ein", vbOKOnly, "Obacht!"
   Exit Sub
End If

Ich habe dir auch den Text der MsgBox angepasst an deine erstgenannten Anforderungen!

 

Juhu,

vielen Dank euch beiden. Hat mir sehr geholfen. Ich habe tatsächlich jetzt die TextBox als Integer berechnet und mit Heute verglichen. Das passt jetzt. Vielen Dank!!! :)