VBA Warnmeldung übers Habljahr hinweg
07.10.2003 09:39:56
RogerB
Ich bin daran eine Ferienliste zu machen. Jedes Halbjahr ist auf einem Blatt. 1.Halbjahr und 2. Halbjahr. Nun möchte ich das wenn eine Eingabe übers Halbjahr hinweg gemacht wird eine Fehlermeldung erscheint. soweit hab ich das hingekriegt fürs erste halbjahr mit folgenedem Code:
Private Sub TextBox2_AfterUpdate()
Set D2 = UserForm2
If Not IsNumeric(TextBox2.Text) Then
Beep
MsgBox "Bitte eine gültige Zahl eingeben!"
End If
'prüfen, ob die Zeitspanne über die Halbjahresgrenze geht
hjg = CDate("30.06.04")
hj = CDate(D2.TextBox1.Text)
hj = hj + D2.TextBox2.Text
If hj > hjg _
Then MsgBox "Bitte nicht über das Halbjahr hinweg eingeben!"
End Sub
Nun wen im 2. Halbjahr eingegeben wird erscheint mir die Warnmeldung aber auch und das soll ja nicht sein. Wie muss ich den Code abändern damit er mir auch im 2.Halbjahr funktioniert und nicht die Warnmeldung des 1. Halbjahres bringt?
Für eure Hilfe wäre ich Dankbar.
Besten dank und mfg
Roger
Anzeige