Hallo nochmal.
dann muss auch auf das Verlassen von reagiert werden.
so?
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
Private Sub ComboBox13_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
|