if .. then ... else ?
29.11.2017 16:25:44
Erik
folgender code macht nicht das was er soll.
Das newDate ist 0 aber die MsgBox "Ihre Lizenz ist abgelaufen!"
und die Range werden nicht angesprochen.
Was ist falsch?
Gruß
Erik
Dim myDate As Date
myDate = "11/29/2017"
newDate = myDate - Date
MsgBox newDate
If newDate 0 Then
MsgBox "Bitte erneuern Sie Ihre Lizenz !"
If newDate = 0 Then
MsgBox "Ihre Lizenz ist abgelaufen!"
Range("T7:W200").Select
Selection.ClearContents
End If
End If