UserForm mit Dateneingabe & - ausgabe
13.10.2006 11:54:15
Ingo
brauche mal wieder Hilfe. Ich habe eine UserForm, die die Tage zwischen zwei Terminen ausrechnen. Leider fünktioniert hier die Tab-Funktion nicht um zwischen den Textboxen hin und her zu springen, daher muss ich umständlicherweise immer noch die Maus benutzen. Weiterhin sollte er mir die Tage ausrechnen, wenn ich das zweite Datum eingebe. Das klappt aber nicht so ganz, denn ich muss immer mit dem Mauszeiger wieder auf die Textbox, so dass er mir erst dann die Tage ausrechnet bzw. aktualisiert.
Gäbe es hierfür eine bessere Lösung? Also Dateneingabe mit Enter oder so?
Private Sub txt_livetermin_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Datum As Date, Datum2 As Date
On Error GoTo Fehler
Datum = CDate(Me.txt_livetermin.Value)
Datum2 = CDate(Me.txt_stichtag.Value)
Me.txt_livetermin = Format(Datum, "DD.MM.YY") ' Schreibt Eingabe als vollständiges Datum zurück
Me.txt_stichtag = Format(Datum2, "DD.MM.YY")
Me.tb_zeit.Value = Datum - Datum2
Me.tb_Vorlaufzeit.Value = Format(Me.tb_zeit.Value * 5 / 7, "0") ' Wochenende wird herausgerechnet, ohne Nachkommastelle
If Datum - Datum2 < 0 Then
MsgBox "Zeit bis zum Stichtag ist negativ, bitte Eingabedatum prüfen!"
End If
Exit Sub
Fehler:
MsgBox "Eingabe für Stichtag konnte nicht als Datum interpretiert werden!"
End Sub
Gruß Ingo