Forumbeitrag
Excel-Version des Fragestellers:
365 privat
Erfahrungslevel des Fragestellers:
Kaum Excel/VBA-Kenntnisse
Hi
die Berechnung muss per Code ausgeführt werden:
If IsDate(Textbox1.Text) and IsNumeric(Textbox2.Text) Then
Textbox3.Text = Format(Cdate(Textbox1.Text) + CDbl(Textbox2.Text), "DD.MM.YYYY")
Else
Textbox3.Text = ""
End if
Wenn die Berechnung automatsich bei Eingabe in eine der beiden Textboxen erfolgen soll, muss der Code ins
AfterUpdate-Event der Textbox1 und ins AfterUpdate-Event der Textbox2
Es sollte auch ohne Code mit Hilfe eine Exceltabelle funktionien.
1. Verknüpfe die beiden Textboxen mit einer Excelzelle, trage hierzu die Adresse der Zelle in die Eigenschaft Controlsource ein
2. führe die Berechnung in einer Zelle per Formel durch
3. Ersetze die Textbox3 durch eine Listbox. verknüpfe diese Listbox mit der Zelle, in der du die Berechnung machst, in dem du die Zelladresse in die Eigenschaft RowSource einträgst.
Die Textbox3 sollte durch eine Listbox ersetzt werden, weil es bei einer Textbox vorkommen kann, dass die Formel in der verknüpften Zelle überschrieben wird, wenn du aus versehen in die Textbox was reinschreibst. mit der Listbox ist das nicht möglich.
Gruß Daniel