Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

if .. then ... else ?

Forumthread: 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
Anzeige

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
Anzeige
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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige