MSGBOX
13.09.2005 21:54:45
Walter
habe folgendes Makro:
Private Sub spnDate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
spnDate.BackColor = &H8000000F
Dim dat
If dat < 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