Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
716to720
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
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Probleme mit Datum

Probleme mit Datum
09.01.2006 18:31:48
Peter
Hallo
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Probleme mit Datum
09.01.2006 19:19:27
Ramses
Hallo
probiers mal so
Sub NewDate()
    Dim nDate As Date
    Dim vDate As Date
    Dim nTag As Variant
    
    nDate = Range("navDate")
    nTag = Weekday(nDate, vbMonday)
    If nTag = 1 Then
        nDate = nDate - 3
    Else
        nDate = nDate - 1
    End If
    'Schreibe in Zelle neben "navDate"
    'das neue Datum
    Range("navdate").Offset(0, 1) = nDate
    '...oder sonstwo hin
    Range("B10") = nDate
End Sub

Gruss Rainer
Anzeige
AW: Probleme mit Datum
10.01.2006 07:52:29
Peter
Hallo Rainer
Vielen Dank, das klappt so.
Ich habe eine Anschlussfrage in einen neuen Tread gestellt.
Freundlicher Gruss, Peter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige