Office: rechnen in userform

Hallo und einen schönen Sonntagabend alle zusammen,
ich habe ein kleines Problem mit meiner Userform
Nicht das eintragen ins Arbeitsblatt ist mein Problem sonder die Rechnerei

Textbox von =Tbv1.....5
Textbox bis =Tbb1....5
Textbox Stunde =tbdez1...5
Ich möchte das in die Zeitdifferenz von tbb1-tbv1=tbdez1 nach verlassen der Textbox tbb1 in tbdez1 angezeigt wird .
Weiterhin soll immer die Gesamtstunden im Feld TbdezGesamt im
Format MM:HH angezeigt werden
Ich wäre froh wenn ihr mir helfen könnte.*Smilie

Das gleiche Problem habe ich mit Textbox 1-5 da brauche ich " nur " das Endergebnis wobei ich hier eine Lösung hatte aber nur mit tb1+tb2=tb3

'
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If TextBox3.Value = "" Then
TextBox1.Value = CDbl(TextBox2.Value)
Else
TextBox1.Value = CDbl(TextBox2.Value) + CDbl(TextBox3.Value) + CDbl(TextBox4.Value)
End If

End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If TextBox2.Value = "" Then
TextBox1.Value = CDbl(TextBox3.Value)
Else
TextBox1.Value = CDbl(TextBox2.Value) + CDbl(TextBox3.Value)
End If
End Sub


Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If TextBox2.Value = "" Then
TextBox1.Value = CDbl(TextBox4.Value)
Else
TextBox1.Value = CDbl(TextBox2.Value) + CDbl(TextBox3.Value) + CDbl(TextBox4.Value)
End If

End Sub





Leider habe ich zu dem das der code nicht fertig ist noch ein anderes Problem wenn in einem Feld nichts steht bekomme ich eine Fehlermeldung

Ich bin eben ein Anfänger !!!!!!!


Schon mal vielen Dank an die die schon so vielen geholfen Haben und ihr Wissen und ihre Zeit geopfert haben um anderen zu helfen

vg aus lauenburg ronny K

:)

 

gelöscht

 

Hi,

Prüf das vorher ab, dann ist es ein Problem weniger.

Schau Dir die Funktion Format() hierzu in der Onlinehilfe an.

Halte den Code nach dieser Anweisung an und schau im lokalen Anzeigefenster nach, ob der gewünschte Effekt von CDbl() an dieser Stelle eintritt.
Falls nicht, dann weglassen.

Wozu die vielen Ausrufezeichen ?

 

Moin!
Textboxes enthalten Text.
Einen "Uhrzeit-Text" wandelt man mittels CDate(Uhrzeit-Text) in eine echte Uhrzeit um.

Du meinst sicherlich hh:mm
(korrekt ist zwar hh:nn aber VBA erkennt den Lapsus automatisch)
Code:

Gruß Ralf

 

Noch ein Zusatz:
Gerade als Anfänger sollte man auf ein Userform, in dem gerechnet wird, verzichten!
Es gibt einfach zu viele Fehlerquellen, wie Du ja auch gerade bemerkst.
Trage Uhrzeiten in Zellen ein:
Ich nehme die Autokorrektur Ersetzen ,, durch :
und gebe 8:00 mittels Ziffernblock und 8,, ein.

 

Danke Ralf für deinen hinweis

Ich wünsche Dir eine schöne Woche

Gruß Ronny

 

Kein Problem, Ronny.

 

Kein Problem, Ronny.
__________________

Gruß
Marco

Entschuldigung Marco dir auch eine schöne Woche