Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1292to1296
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1292to1296
1292to1296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

@Harry

@Harry
12.01.2013 11:41:05
Frank
Hallo Harry,
der Frank noch einmal.
Du hast mir vorhin damit geholfen:
TextBox126 = WorksheetFunction.Text(CDate(TextBox19.Value) + CDate(TextBox29.Value) + CDate(TextBox39.Value) + CDate(TextBox49.Value), "[hh]:mm")
Ich bitte dich noch einmal um Hilfe!
In TextBox133 soll nun der Wert aus TextBox 126 erscheinen, aber als Dezimalzahl!
Mit: TextBox133 = Format(TextBox126) * 24, "0.00") funzt es leider nicht? Weißt du Rat?
Danke und Gruß Frank H.

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dezimalzeit
12.01.2013 12:12:00
Gerd
Hallo Frank! 
TextBox133 = WorksheetFunction.Round((Split(TextBox126.Text, ":")(0) / 24) + (Split(TextBox126.Text, ":")(1) / 1440), 2)
Falls es nicht passt, zeige Beispiele (vorher/nachher).
Gruß Gerd

AW: Dezimalzeit
12.01.2013 12:19:55
Frank
Hallo Gerd!
Du scheinst auf dem richtigen Weg zu sein.
Mein Ergebnis in TextBox126 = 105:00
Dein Ergebnis in TextBox133 = 4,38
Richtig wäre: 105,00
Hilft dir das weiter um mir helfen zu können?
Schon vorab herzlichst Danke!
Gruß Frank H.

AW: Dezimalzeit
12.01.2013 12:24:33
Hajo_Zi
Hallo Frank,
Format(TextBox19*24,"0.00")
Ich baue keine Datei nach, die Zeit hat schon jemand investiert.
ungetestet.

Anzeige
AW: Dezimalzeit
12.01.2013 12:52:02
Gerd
Hi,
wenn Du nur die Minuten in Dezimal umwandeln möchtest, probier mal 
TextBox133 = Format(WorksheetFunction.Round((Split(TextBox126.Text, ":")(0)) + _
(IIf(Split(TextBox126.Text, ":")(1) = 0, 0, Split(TextBox126.Text, ":")(1) / 60)), 2), "0.00")

Gruß Gerd

AW: Dezimalzeit
12.01.2013 13:06:35
Frank
Hallo Gerd!
Spitze, Spitze und nochmals Spitze! Funzt wie gewünscht, wäre ich nie drauf gekommen!
Recht vielen Dank und dir ein schönes WE!
Gruß Frank H!

AW: Dezimalzeit
12.01.2013 12:59:30
hary
Hallo Frank
Versuch es mal anders. Textboxnamen anpassen 
Dim a As Double
a = CDate(TextBox1.Value) + CDate(TextBox2.Value) + CDate(TextBox3.Value) + CDate(TextBox4. _
Value)
TextBox5 = WorksheetFunction.Text(a, "[hh]:mm")
TextBox6 = a * 24

gruss hary
Anzeige

Links zu Excel-Dialogen

TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige