Zeitformat in UF-TextBox
Bernhard
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