Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Rechnen in der Userform | Herbers Excel-Forum


Betrifft: Rechnen in der Userform von: reinhardt springer
Geschrieben am: 08.01.2010 10:17:49

Hallo,
ich habe eine Userform, in der der Anwender die Abfahrt Km Textbox(4) und Ankunft km (Textbox(11) eintragen soll.
Nun möchte ich, das Textbox(12) in der Userform autom. die gefahrenen Kilometer ausrechnet werden.

Das gleiche möchte ich auch für die Fahrtzeit (Textbox2) errechnen lassen aus Abfahrzeit(Textbox5) und Ankunftszeit (Textbox6). Der Eintrag erfolgt im Format 8:00

Eingetragen wird das ganze ins Tabellenblatt über:

' Ausgefüllte Zellen der Spalte 1 (A) zählen und 1 dazu rechnen
MyRow = Cells(Rows.Count, 1).End(xlUp).Row + 1

' Werte übertragen
Cells(MyRow, 1).Value = Me.TextBox1.Text
Cells(MyRow, 2).Value = Me.TextBox2.Text
Cells(MyRow, 3).Value = Me.TextBox3.Text
Cells(MyRow, 4).Value = Me.TextBox4.Text
Cells(MyRow, 5).Value = Me.TextBox5.Text
Cells(MyRow, 6).Value = Me.TextBox6.Text
Cells(MyRow, 7).Value = Me.TextBox7.Text
Cells(MyRow, 8).Value = Me.TextBox8.Text
Cells(MyRow, 9).Value = Me.TextBox9.Text
Cells(MyRow, 10).Value = Me.TextBox10.Text
Cells(MyRow, 11).Value = Me.TextBox11.Text
Cells(MyRow, 12).Value = Me.TextBox12.Text

Kann man hier irgendwie die Formel hinterlegen?

Gruß Reinhardt.

  

Betrifft: AW: Rechnen in der Userform von: Ramses
Geschrieben am: 08.01.2010 10:29:58

Hallo

Als Ansatz bei VBA Gut sollte dies genügen

Cells(myRow,x).formulaLocal = "=" & Cells(myRow,1).Address & "-" & cells(myrow,2).Address

Gruss Rainer


  

Betrifft: hier ein vorschlag für die gefaheren km von: Tino
Geschrieben am: 08.01.2010 10:39:51

Hallo,

Private Sub BerechneKM()
If IsNumeric(TextBox4) And IsNumeric(TextBox11) Then
    With Application.WorksheetFunction
        TextBox12 = _
        Format(.Max(CDbl(TextBox4), CDbl(TextBox11)) - _
        .Min(CDbl(TextBox4), CDbl(TextBox11)), "0.00")
    End With
Else
    TextBox12 = ""
End If
End Sub

Private Sub TextBox11_Change()
    Call BerechneKM
End Sub

Private Sub TextBox4_Change()
    Call BerechneKM
End Sub
Gruß Tino


  

Betrifft: hier ein Bsp. für Berechnung Km und Zeit... von: Tino
Geschrieben am: 08.01.2010 11:15:48

Hallo,
in der Userform.

https://www.herber.de/bbs/user/67074.xls

Gruß Tino


  

Betrifft: ändere noch die Zeile von: Tino
Geschrieben am: 08.01.2010 11:43:02

Hallo,

If InStr(objTextBox, ":") > 0 And Len(objTextBox) > 0 Then
in der Funktion OnlyTime

in diese
If InStr(objTextBox, ":") > 0 Or Len(objTextBox) = 0 Then

Gruß Tino


Beiträge aus den Excel-Beispielen zum Thema "Rechnen in der Userform"