Problem mit on error
24.02.2005 08:00:06
Basti
habe ein problem mit dem einfügen des on error Befehls in diesen Code:
Private Sub txtAbreise_Change()
On Error GoTo FehlerDatum
If Len(txtAbreise.Value) = 8 And Len(txtAnreise.Value) = 8 Then
txtTage = DateValue(txtAbreise) - DateValue(txtAnreise)
End If
If Len(txtAbreise.Value) = 8 And Len(txtAnreise.Value) = 8 And txtPreisÜN <> "" Then
txtPreisGesamt = txtTage * txtPreisÜN
txtPreisGesamt = Format(txtPreisGesamt, "#####,##0.00")
End If
End Sub
Sub FehlerDatum()
MsgBox "Geben Sie das Datum im Format TT.MM.JJ ein !", 48, _
"Falsche Eingabe"
End Sub
Wenn ich das ganze jetzt laufen lassen und es entsteht ein Fehler, sagt er mir
Sprungmarke nicht definiert. Aber Sub ist im selben Codefenster angelegt.
Woran liegt das?
MfG
Basti