Office: (Office 2007) Stunden u. Minuten umwandeln in VBA

Hallo zusammen,

ich habe folgendes Probleme.
1.) In einem Userform wird folgende Stundenangabe eingegeben. z.B. 4,25 oder 6,5 oder 8,75. Diese Werte sollten zur weiteren Bearbeitung in Stunden u. Minuten gewandelt werden. (4:15; 06:30; 08:45) möglichst in VBA.

2.) In anderen Feldern sollten Zeitangaben z.B 04:30 in Stunden dargestellt werden (hier 4,5) aber es soll immer auf die Viertelstunde (*,25 ; *,5 ; und *,75) aufgerundet werden.
Beispiel: 06:31 -> 6,75 Std

Kann mir jemand helfen ?

:)

 

Hi,

Code:

 

Also Step 1 (Dezimal auf Uhrzeit) funktioniert.
Bei Step 2 funktioniert die Rundung nicht richtig.
Die Minuten 1-15 sollen als *,25, die Minuten 16-30 als *,5 die Minuten 31-45 als *,75 und die Minuten 46-00 als *+1,0 auf gerundet werden.
Über den Zellbezug hab ich das so [=VRUNDEN((D44-GANZZAHL(D44))*24+0,12;0,25)] hinbekommen. Aber wie geht das in VB ?

 

Hallo Heavy-Dee!

Da gibt es eine tolle Funktion, da braucht man sich kaum Gedanken darum zu machen, was der Unterschied der Formel in der Tabelle und in VBA ist: WorksheetFunction!

In deinem Beispiel würde die Formel dann so aussehen: Code:

Und wenn du nicht weißt, wie die Formel in Englisch benannt wird, schreibst du die Formel in ein beliebiges Feld (z.B. A1) und siehst dir mal die englische Version an:
(Im direkt Berich eingeben und mit enter bestätigen.) Code:

Gruß
rastrans

 

Hallo H.D.,

verwende Backowes Code, aber anstatt Round die Anweisung Application.RoundUp, dann werden die Zeiten korrekt auf die nächste Viertelstunde gerundet !

 

Hi,
versuch mal das hier, das ich in Anlehnung an Jürgens Idee zusammengestrickt habe:
Code:

Klappt es?

 

Hallo alle zusammen, erfolgt auf der ganzen Linie

@ rastrans: die WorksheetFunction kannte ich noch nicht -> wird mir bestimmt noch weiter helfen.

@ NoNet: mit der Erweiterung auf Application.RoundUp funktioniert es genau richtig!
@ Uwe: Dein Code funktioniert genau so wie der von Backowe mit der Erweiterung von NoNet!

Danke an alle, ihr habt mir echt weitergeholfen.