Zeitformat unter VBA ändern?
Praktikant ExternFSA
in einer Tabelle addiere ich Arbeitszeiten zusammen.
Meine Ergebniszelle hat also das Format: [h]:mm:ss
Jetzt möchte ich aber diesen Wert in ein Dialogfeld übernehmen, habe dazu
folgende Funktion geschrieben:
UserForm.Label=Format(ntime,"[h]:mm:ss")
ntime ist hierbei ein Tabellenwert...
Nun meckert Excel... wegen der eckigen Klammer...
Welche Möglichkeiten hab ich noch, unter VBA ein Zeitformat mit über 24
Stunden zu erstellen?
Danke
Bastian Wegener
Alexander Freudenberg
Praktikant ExternFSA <Praktikant...@de.bosch.com> schrieb in im
Newsbeitrag: 8bscum$5ug$1...@proxy2.fe.internet.bosch.de...
> UserForm.Label=Format(ntime,"[h]:mm:ss")
> ntime ist hierbei ein Tabellenwert...
Ich habe dazu neulich mal eine Funktion geschrieben, allerdings für Access.
Sie sollte aber ohne Änderung auch unter Excel laufen:
Function DauerInStunden(dat As Double)
Dim sMin As String
Dim hour As Integer
Dim d As Double
d = dat
If dat < 0 Then d = 1 + dat
If d <= 1 Then
DauerInStunden = Format(d, "hh:mm:ss")
Else
sMin = Format(d - Int(d), "hh:mm:ss")
hour = Int(d) * 24 + Val(Left(sMin, 2))
DauerInStunden = Format$(hour) & Right(sMin, 6)
End If
End Function
AF.
Frank Arendt-Theilen
wenn 'ntime' ein Tabellenwert ist, so formatiere ihn im Tabellenblatt
im Format [hh]:mm:ss. Für die Darstellung in der Userform gilt dann
z. B.:
UserForm1.Label1.Caption = ActiveSheet.Range(AdresseVonNtime).Text
MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de
Am Wed, 29 Mar 2000 09:56:05 +0200, schrieb Praktikant ExternFSA
<Praktikant...@de.bosch.com> in microsoft.public.de.excel zu
"Zeitformat unter VBA ändern?":
>Hallo,
>
>in einer Tabelle addiere ich Arbeitszeiten zusammen.
>Meine Ergebniszelle hat also das Format: [h]:mm:ss
>
>Jetzt möchte ich aber diesen Wert in ein Dialogfeld übernehmen, habe dazu
>folgende Funktion geschrieben:
>
>UserForm.Label=Format(ntime,"[h]:mm:ss")
>ntime ist hierbei ein Tabellenwert...
>
Praktikant ExternFSA
MfG
Bastian
Alexander Freudenberg schrieb in Nachricht <#UVC9iWm$GA.249@cppssbbsa03>...