Forumbeitrag
Excel-Version des Fragestellers:
365 privat
Erfahrungslevel des Fragestellers:
Kaum Excel/VBA-Kenntnisse
Hallo Ina,
das kann man auch im Change Event via parametrische Prozedur bauen.
Option Explicit
Private Sub TextBox1_Change()
Call Berechnen(Wert1:=TextBox1, Wert2:=TextBox2)
End Sub
Private Sub TextBox2_Change()
Call Berechnen(Wert1:=TextBox1, Wert2:=TextBox2)
End Sub
Private Sub Berechnen(Wert1 As Variant, Wert2 As Variant)
'If IsDate(Wert1) And IsDate(Wert2) Then TextBox3 = CDate(Wert1) + CDate(Wert2) ' addiert Datumszahlen / Zeitwerte aus Textbox1 und Textbox2
If IsDate(Wert1) And IsNumeric(Wert2) Then TextBox3 = CDate(Wert1) + CDbl(Wert2) 'addiert zum Datum in Textbox1 + die Anzahl Tage aus Textbox2
End Sub
je nachdem was du benötigst.
Gruß Uwe