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

MSGBOX

MSGBOX
13.09.2005 21:54:45
Walter
Guten Abend,
habe folgendes Makro:
Private Sub spnDate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
spnDate.BackColor = &H8000000F
Dim dat
If dat &lt DateValue("01.07.2005") Then
MsgBox "Sie kalkulieren nach 'ALTER' Kalkulation ! " & Chr(13) & Chr(13) & _
"Datum vor dem 01.07.2005 " _
& Chr(13) & Chr(13) & "ausgewählt !" & Chr(13) & Chr(13) & _
" " _
, vbInformation, " Hinweis !"
End If
Wenn das Datum derTextbox = txtDate_exit kleiner ist als 1.7.05
soll die Box erscheinen sonst nicht, geht leider nicht, die Box erscheint immer.
Gruß Walter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: MSGBOX
13.09.2005 22:05:02
Ralf
Hallo Walter,
kein Wunder, denn dat ist entweder leer oder 0. Prüfe so:
Dim dat As Date
dat = "01.07.05"
If CDate(txtDate) &lt dat then
Msgbox...
...
...
Ciao, Ralf
Danke funktioniert o.t.
13.09.2005 22:23:10
Walter
Hallo ralf,
Danke, funktioniert.
Gruß Walter
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige