Berechnung in Userform

chris58 · 2025-03-04T21:36:10+01:00

Hallo ! Ich habe eine unverschämte Bitte und würde Euch ersuchen mir zu helfen. Seit einigen Tagen versuche ich in eine Userform bei Eingabe von Datums in TextBox1 und Textbox2 in die dritte TextBox3 eine Berechnung aus einer Liste zu bringen. Ich kann gar nicht sagen, welche UF ich schon probiert habe - ich kann es nicht. Doch bevor ich es aufgebe und es jedesmal zu Fuß rechne, bitte ich Euch um Eure Hilfe. Danke im voraus für Eure Zeit, falls sich irgendwer annimmt. chris58 Hier eine Datei von vielen, die ich hier reinstelle: https://www.herber.de/bbs/user/176124.xls Ich habe es auch mit diesem VBA Code versucht, bin aber kläglich gescheitert. Private Sub txt_Datum1_AfterUpdate() If IsDate(txt_Datum1.Value) Then lblErgebnis = CDate(txt_Datum2.Value) - CDate(txt_Datum1.Value) + 1 Else MsgBox "Kein Datum" txt_Datum1.Value = Date End If With txt_Datum1 .SetFocus .SelStart = 0 .SelLength = Len(.Text) End With End Sub Private Sub txt_Datum2_AfterUpdate() If IsDate(txt_Datum2.Value) Then lblErgebnis = CDate(txt_Datum2.Value) - CDate(txt_Datum1.Value) Else MsgBox "Kein Datum" txt_Datum2.Value = Date End If End Sub Private Sub UserForm_Initialize() txt_Datum1.Value = Date txt_Datum2.Value = Date lblErgebnis = CDate(txt_Datum2.Value) - CDate(txt_Datum1.Value) End Sub Private Sub CommandButton1_Click() Unload Me End Sub

Hallo Chris,

du möchtest in Textbox1 und in Textbox2 ein Datum eingeben und diese addieren. Da wird logischerweise ein ziemlich weit in der Zukunft liegendes Datum rauskommen. Die Differenz macht aber Sinn und das wäre dann:



Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    If Not IsNumeric(TextBox1) Or Not IsNumeric(TextBox2) Then Exit Sub

    TextBox3 = CDate(TextBox2) - CDate(TextBox1)

End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    If Not IsNumeric(TextBox1) Or Not IsNumeric(TextBox2) Then Exit Sub

    TextBox3 = CDate(TextBox2) - CDate(TextBox1)

End Sub

Wenn du ein Startdatum in TextBox1 vorgibst und in Textbox2 die Anzahl der Tage eingibst wäre dies dann so:



Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    If Not IsNumeric(TextBox1) Or Not IsNumeric(TextBox2) Then Exit Sub

    TextBox3 = DateSerial(Year(TextBox1), Month(TextBox1), Day(TextBox1) + CDbl(TextBox2))

End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    If Not IsNumeric(TextBox1) Or Not IsNumeric(TextBox2) Then Exit Sub

    TextBox3 = DateSerial(Year(TextBox1), Month(TextBox1), Day(TextBox1) + CDbl(TextBox2))

End Sub

Gruß Uwe

Hallo,

ja, entweder alle Daten (Mrz. von Datum) als Echte oder
via Schleife so:



Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    If IsDate(TextBox1) And IsDate(TextBox2) Then Summieren

End Sub



Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    If IsDate(TextBox1) And IsDate(TextBox2) Then Summieren

End Sub



Private Sub Summieren()

    Dim lz&, i&, Summe#

    With Tabelle1

        lz = .Cells(Rows.Count, 1).End(xlUp).Row

        For i = 47 To lz

            If .Cells(i, 1) >= CDate(TextBox1) And .Cells(i, 1) = CDate(TextBox2) Then

                Summe = Summe + .Cells(i, 10)

            End If

        Next

    End With

    TextBox3 = Summe

End Sub

Besser noch die Berechnung im Array erledigen:



Private Sub Summieren()

    Dim i&, Summe#, arr(): arr = Tabelle1.Range("A47:L" & Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row).Value

    For i = LBound(arr) To UBound(arr)

        If arr(i, 1) >= CDate(TextBox1) And arr(i, 1) = CDate(TextBox2) Then

            Summe = Summe + arr(i, 10)

        End If

    Next i

    TextBox3 = Summe

End Sub

Gruß Uwe

Forumthread: Berechnung in Userform

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Berechnung in Userform

Forumthread: Berechnung in Userform

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread