Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
960to964
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
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Wenn-Dann Abfrage in der TextBox
24.03.2008 21:19:48
edie
Hallo zusammen,
es funktioniert nicht mit dem Datum in der Wenn-dann Abfrage:
If TextBox1.Value > 01.03.08 And TextBox1.Value so auch nicIf TextBox1.Value > "01.03.08" And TextBox1.Value hier der Code:

Private Sub CommandButton1_Click()
If TextBox1.Value > 01.03.08 And TextBox1.Value 


wenn das Datum als Zahl formatiert wird dann funkt. es.
If TextBox1.Value > 39508 And TextBox1.Value Wie lautet die richtige Syntax?
Bitte um hilfe im Voraus vielen Dank.
Grüße

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn-Dann Abfrage in der TextBox
24.03.2008 21:48:00
Matthias
Hallo
probier mal in der Art:

Option Explicit
Private Sub CommandButton1_Click()
Dim Datum As Date
On Error GoTo ende
Datum = CDate(TextBox1.Value)
MsgBox Datum 'Test
If Datum > CDate("01.03.08") And Datum 


Gruß Matthias

AW: Wenn-Dann Abfrage in der TextBox
24.03.2008 21:56:00
Gerd
Hallo edie,
oder ohne Variable so.
If Format(CDate(Me.TextBox1.Value), "dd.mm.yy") > CDate("01.03.08") And Format(CDate(Me.TextBox1.Value), "dd.mm.yy") < CDate("01.04.08") Then
Stop ' nur für Test
End If
Womit aber noch nicht die Eingabe auf zulässige Datumswerte beschränkt ist.
Gruß Gerd

Anzeige
AW: Es funktioniert, Danke
24.03.2008 22:36:43
edie
Hallo Matthias,
Hallo Gerd,
Danke Euch beiden es funktioniert.
Vielen Dank.
Grüße

319 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige