Office: Aufrunden der Stundenanzahl

Ja, 2 und 3 war gemeint.

Und ja, wer lesen kann... Danke!

 

Hier noch eine etwas konstruierte, aber sinnvolle Verwendung von Round, abseits von Nur-Statistik:

Stell Dir vor, man sollte zufällige Halbstundenwerte summieren.

01:00
01:30
02:30
03:00
03:30

11:30 beträgt die Summe des Ausgangsmaterials
13:00 beträgt die Summe der bürgerlich auf Stunden gerundeten Einzeldauern
12:00 beträgt das mathematische Pendant, und ist somit fairer (näher am Ausgangsmaterial).

 

kann mir noch jemand zu meiner Frage helfen?

bzw kann ich irgendwie den Inhalt der Zelle so auslesen, dass er von dem Zellenwert "166:56:27" nur den Bereich "166" nimmt ?

 

Du wolltest doch "oben" noch runden?
Ist doch eine simple Multiplikation (ein Tag (Ganzzahl!) hat 24 Stunden).
Spalte B hat das Standard-Format:
[parsehtml]<table border='1' cellspacing='0' cellpadding='2' valign='middle' colspan='3' style='font-family:Calibri; color:#000000; border-collapse:collapse; background-color:#FFFFFF; font-size:14px; font-weight:normal; font-style:normal; '><colgroup><col width='28pt'><col width='71,25pt'><col width='60pt'></colgroup><tr style='background-color:#cacaca'><td> </td><td align='middle'>A</td><td align='middle'>B</td></tr><tr><td style='background-color:#cacaca' align='middle'>11</td><td align='right' >166:56:27</td><td align='right' >167</td></tr><tr><td style='background-color:#cacaca' align='middle'>12</td><td align='right' style='border-bottom-left-radius: 0px;border-bottom-right-radius: 0px;' >06:12:58</td><td align='right' style='border-bottom-left-radius: 0px;border-bottom-right-radius: 0px;' >6</td></tr></table>[/parsehtml][parsehtml]<table border='1' cellspacing='0' cellpadding='2' valign='middle' colspan='2' style='table-layout:auto; color:#000000; background-color:#FFFFFF; border-collapse:collapse; font-family:Calibri; font-size:14px;'><colgroup><col width='40pt'><col></colgroup><tr style='background-color:#eeaaaa'><td>Zelle</td><td>Formel</td></tr><tr><td style='border-bottom-left-radius: 0px;'>B11</td><td style='border-bottom-right-radius: 0px;'><Span style='color:#222222'>=RUNDEN</Span><Span style='color:#0000DD'>(A11*24;0)</Span><Span style='color:#222222'></Span></td></tr><tr><td style='border-bottom-left-radius: 0px;'>B12</td><td style='border-bottom-right-radius: 0px;'><Span style='color:#222222'>=RUNDEN</Span><Span style='color:#0000DD'>(A12*24;0)</Span><Span style='color:#222222'></Span></td></tr></table>[/parsehtml]Edit:
Das schrieb Berni ja bereits als erste Antwort.
Bei uns klappt es!
Wenn es bei Dir nicht klappt, musst Du mal ein Beispiel hochladen.

Gruß Ralf

 

Hallo kai99

vieleicht hilft ja folgendes.

Code:

Grüße

Harald

 

Hola,

der Kevin hat genau das gleiche Problem....

http://www.vba-forum.de/forum/View.a..._Stundenanzahl

Gruß,
steve1da

 

Stimmt nicht!
Ich gebrauche häufiger bankers rounding.
Aktuell in einem Auftrag, bei dem auf jeweilige halbe Stunden gerundet werden soll.
Da häufig 00:15 genommen wird und dies bereits bei 4 Viertelstunden zu einer Differenz von einer Stunde führt, schlug ich ein angepasstes Runden vor, bei dem bei ungeraden Stunden ab-, ansonsten aufgerundet wird:

*Formel gelöscht, da hat mir mein Gedächtnis einen Streich gespielt*

Gruß Ralf

 

Hallo Lupo,
Vielen Dank für den Link zu Wikipedia. Da wird es sehr verständlich erklärt.

 

Hallo steve1da,

da wir zurzeit am gleichen Projekt arbeiten und hier nicht wirklich zu einer Lösung gekommen sind, haben wir uns an ein anderes Forum gewendet :-).

 

Und was gefällt "euch" an bspw. #19 nicht?

 

Möglicherweise meinst Du dies:

Sub RundenMathUndKFMaufHalbeStd()
MsgBox _
"00:15: math " & Format(Round(1 / 96 * 48) / 48, "h:mm") & ", kfm. " & Format(WorksheetFunction.Round(1 / 96 * 48, 0) / 48, "h:mm") & Chr(10) & _
"01:15: math " & Format(Round(5 / 96 * 48) / 48, "h:mm") & ", kfm. " & Format(WorksheetFunction.Round(5 / 96 * 48, 0) / 48, "h:mm") & Chr(10) & _
"01:30: math " & Format(Round(6 / 96 * 48) / 48, "h:mm") & ", kfm. " & Format(WorksheetFunction.Round(6 / 96 * 48, 0) / 48, "h:mm") & Chr(10) & _
"01:45: math " & Format(Round(7 / 96 * 48) / 48, "h:mm") & ", kfm. " & Format(WorksheetFunction.Round(7 / 96 * 48, 0) / 48, "h:mm") & Chr(10) & _
"02:15: math " & Format(Round(9 / 96 * 48) / 48, "h:mm") & ", kfm. " & Format(WorksheetFunction.Round(9 / 96 * 48, 0) / 48, "h:mm") & Chr(10) & _
"02:00: math " & Format(Round(8 / 96 * 48) / 48, "h:mm") & ", kfm. " & Format(WorksheetFunction.Round(8 / 96 * 48, 0) / 48, "h:mm")
End Sub

@WS-53: Gern doch! Die abzustellende Ungleichbehandlung des Grenzrundens hatte ich zwar immer schon in Gedanken, aber ich wusste (bis vor ein paar Jahren) nicht, dass sie tatsächlich umgesetzt ist.

 

diese gibt mir ständig einen Anwendungs- oder objektdefinierten Fehler

 

Eine Formel (in einer Excel-Zelle) gibt Dir o.g. Fehler??
Was soll überhaupt der (mit Verlaub) Quatsch mit VBA, wenn es Dir/euch da an den absoluten Grundlagen fehlt.
Nimm stumpf meine Formel oder trage sie meinethalben mittels VBA und
.FormulaLocal = "=RUNDEN(A11*24;0)"
in die Zelle ein.

 

Wenn ich deine Formel nehme, dann kommt als Ergebnis 4008:00:00 raus.
Aber naja trotzdem danke für deine Hilfe. Ich benutze VBA, weil mehrere Auswertung mit einem Makro ausgeführt werden, sodass eine PP mit Diagrammen, Tabellen und Textfelder in PP generiert werden.

 

Wobei Du das mit dem Standardformat in #19 geflissentlich überlesen hast.
Mit Deinen Worten:
Aber naja trotzdem viel Spaß mit Deinem VBA, Du schaffst das schon …