Rechnen in der Userform

reinhardt

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.

AW: Rechnen in der Userform

08.01.2010 11:29:58

Ramses

Hallo
Als Ansatz bei VBA Gut sollte dies genügen
Cells(myRow,x).formulaLocal = "=" & Cells(myRow,1).Address & "-" & cells(myrow,2).Address
Gruss Rainer

hier ein vorschlag für die gefaheren km

08.01.2010 11:39:51

Tino

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

hier ein Bsp. für Berechnung Km und Zeit...

08.01.2010 12:15:48

Tino

Hallo,
in der Userform.
https://www.herber.de/bbs/user/67074.xls
Gruß Tino

ändere noch die Zeile

08.01.2010 12:43:02

Tino

Hallo,
If InStr(objTextBox, ":") &gt 0 And Len(objTextBox) &gt 0 Then
in der Funktion OnlyTime
in diese
If InStr(objTextBox, ":") &gt 0 Or Len(objTextBox) = 0 Then
Gruß Tino

Rechnen in der Userform

Forumthread: Rechnen in der Userform

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Rechnen in der Userform

Forumthread: Rechnen in der Userform

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread