Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1592to1596
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

if .. then ... else ?

if .. then ... else ?
29.11.2017 16:25:44
Erik
Hallo zusammen,
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

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: if .. then ... else ?
29.11.2017 16:33:52
Werner
Hallo Erik,
If newDate  0 Then
MsgBox "Bitte erneuern Sie Ihre Lizenz !"
ElseIf newDate 
Gruß Werner
AW: if .. then ... else ?
29.11.2017 17:11:24
Erik
Danke an alle !
geht.
Gruß
Erik
Gerne u.Danke für die Rückmeldung. o.w.T.
29.11.2017 17:17:17
Werner
AW: if .. then ... else ?
29.11.2017 16:35:49
UweD
Hallo
du kommst ja nie in die Innere If...
die müssen nacheinander laufen.
so?
Dim myDate As Date, newDate As Date
    myDate = "11/29/2017"
    newDate = myDate - Date
    MsgBox newDate
    
    If newDate <= 30 And newDate > 0 Then
        MsgBox "Bitte erneuern Sie Ihre Lizenz !"
    
    End If
    If newDate = 0 Then
        MsgBox "Ihre Lizenz ist abgelaufen!"
            
        Range("T7:W200").ClearContents
    
    End If
    
End Sub

Auf Select kann in 99% verzichtet werden
LG UweD
Anzeige
AW: if .. then ... else ?
29.11.2017 17:12:30
Erik
Hallo Uwe,
ja hab ich jetzt verstanden :-)
auch das mit Select
war halt Macro Recroder ;-)
AW: if .. then ... else ?
29.11.2017 16:38:05
Nepumuk
Hallo Erik,
versuch es mal so:
Dim myDate As Date
Dim newDate As Long

myDate = "11/29/2017"
newDate = myDate - Date
MsgBox newDate

If newDate <= 30 And newDate > 0 Then
    
    MsgBox "Bitte erneuern Sie Ihre Lizenz !"
    
ElseIf newDate = 0 Then
    
    MsgBox "Ihre Lizenz ist abgelaufen!"
    
    Range("T7:W200").ClearContents
    
End If

Gruß
Nepumuk
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige