Zeitabfrage
07.05.2003 15:42:44
Andreas
Ich möchte mit einem Code eine Zeitabfrage in einer UserBox machen
folgenden Code gebrauche ich dafür. Es sollen zeiten von 6Uhr
bis 18 Uhr und von 18 uhr bis 6Uhr sein .Von 6-18Uhr soll eine Userform Geöffnet werden und wenn 18-6Uhr ist soll eine andere Userform geöffnet werden.
Private Sub Image2_Click()
If CDate(TextBox8.Value) < 0.75 And _
CDate(TextBox8.Value) > 0.249 Then UserForm8.Show
If CDate(TextBox8.Value) > 0.75 And _
CDate(TextBox8.Value) < 0.249 Then UserForm9.Show
End Sub
Es öffnet sich aber nur die UserForm 8.
Kann mir jemand weiterhelfen
Mfg Andreas