Stundenberechnung mit TextBoxen

Forumthread: Stundenberechnung mit TextBoxen
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Stundenberechnung mit TextBoxen

17.12.2025 17:33:19

Frank H.

Hallo Zusammen.

kann ich folgendes realisieren?
TextBox1 bspw. 53:04
TextBox2 bspw. 12:15

In TextBox3 soll dann das Ergebnis 40:49 stehen

Also TextBox3 = TextBox1 - TextBox2

Mit CDate oder CDbl funktioniert die Berechnung leider nicht.

Kennt jemand einen Trick?
Danke im Voraus!

L.G. Frank

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Im Anhang ist...

17.12.2025 17:56:59

Case
AW: Stundenberechnung mit TextBoxen

18.12.2025 01:06:40

daniel
AW: Stundenberechnung mit TextBoxen

18.12.2025 10:03:39

Frank H.
AW: Im Anhang ist...

17.12.2025 18:18:07

Frank H.

Im Anhang ist...

17.12.2025 17:56:59

Case

Moin Frank, :-)

... eine Möglichkeit: ;-)
https://www.herber.de/bbs/user/179865.xlsb

Servus
Case

AW: Stundenberechnung mit TextBoxen

18.12.2025 01:06:40

daniel

hI
als Einzeiler:

TextBox3.Text = WorksheetFunction.Text(TimeSerial(Split(TextBox1.Text, ":")(0), Split(TextBox1.Text, ":")(1), 0) - TimeSerial(Split(TextBox2.Text, ":")(0), Split(TextBox2.Text, ":")(1), 0), "[hh]:mm")

falls auch negative Zeiten berechnet werden sollen:

dim x

x = TimeSerial(Split(TextBox1.Text, ":")(0), Split(TextBox1.Text, ":")(1), 0) - TimeSerial(Split(TextBox2.Text, ":")(0), Split(TextBox2.Text, ":")(1), 0)

Textbox3.Text = Worksheetfunction.Text(ABS(x), IIF(x  0, "- [hh]:mm", "[hh]:mm"))

Gruß Daniel

AW: Stundenberechnung mit TextBoxen

18.12.2025 10:03:39

Frank H.

Hallo Daniel,
funzt auch bestens.
Danke und liebe Grüße!

AW: Im Anhang ist...

17.12.2025 18:18:07

Frank H.

Hallöchen

passt. Danke!

L.G. Frank

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!