Guten Morgen,
Um die Different des Datums zum heutigen anzuzeigen, habe ich diesen Code geschrieben. Er funktioniert, aber die Different der Daten, die in der Vergangennheit liegen, sollen als negative Zahl angegeben werden.
Wie baue ich das ein?
Dim mydate
mydate = Date
For x = 2 To lastrow
If Worksheets("Sheet1").Cells(x, 8).Value <> "" Then
Worksheets("Sheet1").Cells(x, 9) = Date - Worksheets("Sheet1").Cells(x, 8)
End If
If Worksheets("Sheet1").Cells(x, 9) > 0 Then
Next x
|