Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
428to432
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
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code Problem

Code Problem
13.05.2004 10:20:16
Matthias
Hallo,
habe folgenden Code:

Private Sub Workbook_Open()
If Date  Worksheets("Sheet1")  Range("A1").Value >= 28 Then
MsgBox "Schon wieder 4 Wochen aelter geworden!"
End If
End Sub

Das klappt aber nicht so wirklich. Wo ist mein Fehler?
Danke und Gruss
Matthias

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code Problem
13.05.2004 10:35:02
Oberschlumpf
Hi Matthias
Versuch es mal so:

If IsDate(Range("A1").Value) Then
If Date - Range("A1").Value >= 28 Then
MsgBox "Schon wieder mindestens 4 Wochen aelter geworden!"
End If
End If

Hier wird die Eingabe in A1 überprüft.
Zuerst ob überhaupt ein gültiges Datum eingegeben wurde, und dann wird die Differenz zum aktuallen Dateum berechnet. Wenn der Unterschied größer oder gleich 28 Tage ist, dann erscheint die Meldung.
Konnte ich helfen?
Ciao
Thorsten
AW: Code Problem
Matthias
Genau das war es!!!
Danke Dir!!
Matthias
bitte...gerne :-)..thx for feedback.. o.T.
13.05.2004 10:41:58
Oberschlumpf

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige