Select Case und If Datediff...

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