Was ist hier falsch ? Makro hat Fehler.
28.11.2005 17:21:42
Sigrid
mit diesem Code:
If Time > "00:00:00" And Time Date = Format(Now - 1, "dd.mm.yyyy")
Else
Date = Format(Now, "dd.mm.yyyy")
End If
s = InputBox(vbCr & vbCr & vbCr & "Datum in der Form TT.MM.JJJJ (z.B. 19.11.2005)eingeben:", "Datum", Date)
soll folgendes erreicht werden:
In der Zeit von 00:00 Uhr bis 06:00 Uhr morgens soll in der InputBox bei Aufruf das Datum von gestern vorgegeben werden, in der übrigen Zeit des Tages das Datum von heute.
Das klappt immer nur einmal, dann nicht mehr, was ist hier falsch ?
Danke im Voraus
Gruß
Sigrid
Anzeige