Beiträge zum Thread: berechnen in textbox?

Moin
Hier mit Button

Private Sub CommandButton1_Click()

TextBox3 = DateAdd("d", CDate(TextBox1), CLng(TextBox2))

End Sub

Evtl. muss du noch pruefen ob
Textbox1 ein Datum ist
Textbox2 eine Zahl ist
gruss hary

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

Hallo Daniel,

vielen Dank für deine Hilfe.
Als Anfängerin eine Frage zu AfterUpdate-Event der Textbox1 und ins AfterUpdate-Event der Textbox2.
Wie läßt sich das realisieren?

wenn du im VBA-Editor bist und dir den Code der Userform anzeigen lässt, dann hast du über dem Codefenster zwei Comboboxen.
in der linken wählst du das Objekt aus, dass du bearbeiten willst (die Textbox) und dann siehst du in der rechten Combobox die möglichen Event-Makros zu diesem Objekt. Dort wählst du dann das gewünschte Event aus und es wird im Codefenster das entsprechende Makro angezeigt oder neu angelegt, falls es noch nicht vorhanden ist.
das Makro hat zunächst nur die Kopf- und Endzeile, dazwischen kannst du dann deine Programmierung einfügen.
Gruß Daniel

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

Vielen Dank euch, ihr habt mir sehr geholfen!

LG Ina