Probleme mit Datum
09.01.2006 18:31:48
Peter
Ich übernehme aus einem Feld (benannt) ein Datum und will dies je nach dem um einen Tag (wenn Datum nicht ein Montag ist) oder um drei Tage (wenn Datum ein Montag ist) zurücksetzen und dann wieder als Datum, allenfalls allenfalls in Textform in eine andere Zelle schreiben.
Verschiedene Versuche haben nicht zum Ziel geführt, beispielsweise:
Sub datum_u()
Dim nDate as string
Dim vDate s String
Dim n Tag as variant
nDate = Range("navDate")
nTag = Weekday (nDate)
vDate = DateValue(nDate)
if nTag = 2 Then
nDate = nDate - 3
Else
nDate = nDate - 1
Enfif
' Pendent Eintrag in bestimmte Zelle als Text oder
' Eintrag in bestimmte Zeile als Datum
Danke für Feedback
Peter