Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1128to1132
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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.

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

Betreff
Benutzer
Anzeige
AW: Rechnen in der Userform
08.01.2010 10: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 10: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
Anzeige
ändere noch die Zeile
08.01.2010 11: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

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige