datum weergeven na checken van tijd

[Gorinchem]

Goedenmiddag,

Graag wil ik een datum laten plaatsen als de waarde tussen twee tijden ligt.
Voor een bepaalde tijd de datum van , en anders de datum van morgen.
De code die ik heb is:

#Sub Macro1()

Dim Time As Date, cel As Range
For Each cel In Range("D1200")
If IsEmpty(cel.Value) Then Exit For
If Time > TimeValue("18:00:00") And Time < TimeValue("23:59:00") Then
cel.Offset(0, -3).Value = Now()
Else
cel.Offset(0, -3).Value = Now() + 1
End If

Next

End Sub#

Maar dan krijg ik overal de datum van morgen te zien.
Wat ik ook probeer, ik krijg geen twee verschillende datums te zien.

Alvast bedankt voor de hulp.
Mvg: Rik Gorinchem

 

[sylvester-ponte]

verander in deze regel :

If Time > TimeValue("18:00:00") And Time < TimeValue("23:59:00") Then

time door cel

 

[Gorinchem]

Helemaal geweldig,
dank je wel.
dat de oplossing zo makkelijk kan zijn.

Ik zet de vraag op opgelost.

 

[VenA]

Plaats code svp tussen codetags. Gebruik geen gereserveerde woorden als naam van een variabele.

Sub VenA()
  With Sheets("Blad1").UsedRange
    ar = .Value
    For j = 1 To UBound(ar)
     ar(j, 1) = Now + Abs(ar(j, 4) < 0.75)
    Next j
    .Value = ar
  End With
End Sub

 

[snb]

Sub M_snb()
  With Sheets("Blad1").UsedRange.Resize(,4)
    sn = .Value

    For j = 1 To UBound(sn)
      sn(j, 1) = Now -(sn(j, 4) > TimeValue("18:00:00"))
    Next j

    .Value = sn
  End With
End Sub