Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
400to404
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
400to404
400to404
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Zeitformat in UF-TextBox
Bernhard
Hallo Leute,
Mit nachfolgender Schleife lese und summiere ich Zeiten innerhalb einer UF.
Diese Zeiten stehen im Uhrzeitformat (z.B. 7:22:14) in der Tabelle.

Private Sub Zeitsumme()
Dim I%,GesZeit
For I = 1 To 200
GesZeit = GesZeit + Cells(I, 3)
Next
TextBox1.Text = GesZeit
End Sub
"
Alle Zeiten werden solange korekt in der Textbox angezeigt, wie die Zeitsumme unter 24 Std liegt
Bei einer Zeitsumme von 50 Std dagegen wird nur die Differenzsumme von 2 Std zu den zwei ganzen Tagen in der Textbox angezeigt.
Wie muß ich hier die Formate festlegen, daß die Zeitanzeige in der Textbox auch über 24 Std anzeigt.
m.f.G.
Bernhard

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

Betreff
Benutzer
Anzeige
AW: Zeitformat in UF-TextBox
PeterW
Hallo Bernhard,
ein Weg könnte sein: TextBox1 = CInt(GesZeit) * 24 + Hour(GesZeit) & ":" & Minute(GesZeit) & ":" & Second(GesZeit)
Gruß
Peter
AW: Zeitformat in UF-TextBox
23.03.2004 23:02:08
Christoph
Hi Bernhard
z.B so:
TextBox1 = Format(GesZeit, "dd ""Tage"", hh ""Stunden""")
oder:
TextBox1 = Format(Worksheets("Tabelle1").Range("A1"), "dd:hh:mm:ss")
oder wie immer du es willst
Gruß
Christoph
('ne Rückmeldung wäre nett)
@Peter und Christoph - Danke
Bernhard
Hallo Peter,
Hallo Christoph,
Danke für Eure Bereitschaft, mir zu helfen.
Da habe ich mir doch mal gedanken gemacht und Eure Anregungen in die Tat umgesetzt.
Herausgekommen ist eine Bsp-UF mit allen Zeitformaten
Es wird davon ausgegangen, daß die einzulesenden nachfolgenden Zeiten in Tabelle1.Range("C1:C10") stehen
10:00:00; 10:00:00; 10:00:00; 10:05:30; 10:00:00; 10:00:00; 10:00:00; 10:00:00; 10:00:00 und 10:00:00;
Nachfolgendes Makro in eine UF mit 5 TextBoxen (1-5)

Private Sub UserForm_Initialize()
Dim GesZeit, I%
For I = 1 To 11
Zeiten aus C1:C10 einlesen und addieren
GesZeit = GesZeit + Cells(I, 3)
Next
'Zeitsumme in Tagen und Stunden - 1
If GesZeit > 0.9999999 Then
TextBox1 = CInt(GesZeit) & ";  " & Format(CInt(GesZeit) _
+ GesZeit, "hh:mm:ss")
Else
TextBox1 = Format(CInt(GesZeit) + GesZeit, "hh:mm:ss")
End If
'Zeitsumme in Tagen und Stunden - 2
TextBox2 = CInt(GesZeit) & " Tage  " & Format(GesZeit, "hh"":""mm"":""ss"" Std.""")
'Zeitsumme nur in Stunden
TextBox3 = Format((GesZeit * 24), "00") & ":" & Format _
(Minute(GesZeit), "00") & ":" & Format(Second(GesZeit), "00")
'Zeitsumme in Stunden als Dezimalwert
TextBox4 = CInt(GesZeit * 24) & "," & Format(CInt(GesZeit) _
+ GesZeit, "00")
'Zeitsumme in Tagen und Stunden als Dezimalwerte
If GesZeit > 0.9999999 Then
TextBox5 = CInt(GesZeit) & " Tage  " & Format((GesZeit - CInt(GesZeit)) * 24, "0.00" & " Std")
Else
TextBox5 = Format((GesZeit) * 24, "0.00" & " Std")
End If
End Sub

Danke nochmals für Eure Vorschläge, durch die ich erst in Gang gekommen bin.
Gruß
Bernhard
Anzeige
Danke für die Rückmeldung
24.03.2004 18:20:19
Christoph
Hi bernhard,
wie ich sehe, lässt sich da doch einiges basteln...
gruß
Christoph

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige