Also an der Stelle verstehe ich nicht ganz, warum du ueberhaupt Comboboxen hast. Die Felder sind doch auch nur zur Anzeige da, oder? Die werden ja garnicht befuellt. Der Fehler kommt, weil in
Private Sub ComboBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Datum As Date
Dim Jahre As Integer
Datum = Me.ComboBox10.Value
Jahre = Me.ComboBox13.Value
Me.ComboBox11 = DateSerial(Year(Datum) + Jahre, Month(Datum), Day(Datum))
End Sub
diese Zeile
Datum = Me.ComboBox10.Value
nichts an die Variable uebergeben kann, weil ja nichts in der Combobox drinsteht. Und da du hier das Exit Ereignis verwendest, kommt der Fehler, wenn du die Combobox verlaesst. Warum verwendest du hier keine Textboxen, wenn das manuelle Eingaben sein sollen?
|