Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Select Case und If Datediff...

Select Case und If Datediff...
12.10.2003 10:42:06
Claus
Guten Tag Forumsmitglieder,

ich habe eine knifflige Abfrage im Sinn, die folgendes tun soll: Zum einen wird per Select Case Anweisung der Zellinhalt der Spalte C abgefragt (1. Bedingung) und zum anderen per If Anweisung eine Datumsdifferenz von Heute zum Wert in Spalte B festgestellt (2. Bedingung).
Wenn beide Bedingungen wahr sind, soll eine mail gesendet werden....

Leider funktioniert das mit der If-Anweisung nicht...Wie kann ich es besser machen? Mehrere Select Case Anweisungen?



Select Case Cells(x, 3)
        'Erste Nachricht T -10 Tage
        If DateDiff("d", Now, Cells(x, 2)) = 10 Then
        Case ""
          m.Body = "Der Termin für die Einarbeitung der BM " & Cells(x, 1) & " läuft in 10 Tagen aus. Die Bauunterlage muss in 10 Tagen auf Status 3-3 sein."
        'Zweite und letzte Nachricht T -5 Tage
        End If
        If DateDiff("d", Now, Cells(x, 2)) = 5 Then
        Case "1"
          m.Body = "Nur noch 5 Tage um die BM " & Cells(x, 1) & " komplett einzuarbeiten! Die Bauunterlage muss in 5 Tagen auf Status 3-3 sein."
        End If
        'Neuer Lauf
        Case Else
          GoTo 10
        End If
    End Select

     Code eingefügt mit Syntaxhighlighter 2.4

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

Betreff
Datum
Anwender
Anzeige
AW: Select Case und If Datediff...
12.10.2003 11:24:35
Micha
probiers mal so
(ungetestet)

Select Case Cells(x, 3)
Case Is = ""
'Erste Nachricht T -10 Tage
If DateDiff("d", Now, Cells(x, 2)) = 10 Then
m.Body = "Der Termin für die Einarbeitung der BM " & Cells(x, 1) & " läuft in Tagen aus. Die Bauunterlage muss in 10 Tagen auf Status 3-3 sein."
End If
'Zweite und letzte Nachricht T -5 Tage
Case Is = "1"
If DateDiff("d", Now, Cells(x, 2)) = 5 Then

m.Body = "Nur noch 5 Tage um die BM " & Cells(x, 1) & " komplett einzuarbeiten! Die Bauunterlage muss in 5 Tagen auf Status 3-3 sein."
End If
'Neuer Lauf
Case Else
GoTo 10
End If
End Select
Anzeige
Datediff Format soll ganzzahlig sein
12.10.2003 12:45:50
Claus
DAnke für die prompte und funktionnierende Hilfe! Ein kleines Problem habe ich allerdings noch: Bei der Bildung einer Datumsdifferenz soll das Ergebniis in der Email stehen. Der Wert kommt auch, allerrdings mit 12 Kommastellen. Statt 10 Tage steht da dann 9.483368055553 Tage...wobei das gerundet 9 Tagen entspricht und dann auch noch falsch wäre (für meine Zwecke falsch).
In Spalte B steht der Termin (z.B. 22.10.2003). Now ist heute (12.10.2003). Die Differenz soll 10 sein. Was muss ich ändern?

m.Body = "Der Termin läuft in " & Cells(x, 2) - Now() & " Tagen aus."
AW: Datediff Format soll ganzzahlig sein
12.10.2003 17:33:06
Micha
vielleicht so?


m.Body = "Der Termin läuft in " & Cint(Cells(x, 2) - Now()) + 1 & " Tagen aus."
Anzeige
AW: Datediff Format soll ganzzahlig sein
12.10.2003 17:38:37
PeterW
Hallo Claus,

benutze statt NOW() (=Datum und Uhrzeit!) lieber DATE (=nur Datum).

Gruß
Peter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige