ich brauche wieder mal Euere Hilfe.
In einer Userform wähle ich in TextBox1 ein Datum aus. Nach der Auswahl soll in TextBox2 das ausgewählte Datum aus TextBox1 + z.B 100 Tage angezeigt werden.
Danke für die Hilfe
Gruß Didi
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TextBox1.Text) Then
TextBox2 = "": Cancel = True
Else
TextBox2.Text = Format$(DateAdd("d", CDate(TextBox1.Text), 100), "dd.mm.yyyy")
End If
End Sub
ich habe jetzt keine Prüfung ob die Eingabe ein Datum