Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Stunden auf halbe bzw. volle Stunden runden

Stunden auf halbe bzw. volle Stunden runden
27.11.2015 07:14:30
Malte
Hallo,
ich habe ein Problem eine Runden-Funktion zu implementieren. Ich möchte gerne die Stunden auf jeweils halbe, oder volle Stunden bringen.
Ich habe z.B. 220,3 Stunden, daraus sollen 220 Stunden werden. Im Falle von 220,95 Stunden sollen 220,5 Stunden daraus werden
Also immer nur halbe, oder volle Stunden.
Ich weiß aber nicht, wie ich das mathematisch in VBA umsetzen kann.
Kann mir jemand helfen?
Danke!
Gruß
Malte

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: multiplizieren und dividieren und KÜRZEN() ...
27.11.2015 07:20:53
...
Hallo Malte,
... so: =KÜRZEN(A1*2;)/2
Gruß Werner
.. , - ...

Anzeige
AW: Stunden auf halbe bzw. volle Stunden runden
28.11.2015 09:24:10
Malte
Hallo,
danke für Eure Antworten!
Leider funktioniert keines der Beispiele.
Ich habe folgende Uhrzeiten als Beispiel gewählt:
12:59
13:05
13:31
Für die Idee mit dem Kürzen komme komische Ergebnisse heraus (immer 12:00).
Mit dem Link habe ich nun versucht immer auf den 2-Std-Teil zu gehen.
Hierbei erhalte ich für 13:05 und 13:31 die richtigien Ergebnisse mit =RUNDEN().. Allerdings wird aus 12:59 13:00, wobei ich eigl. 12:30 als Werte benötige.
Hier eine Bsp-Mappe:
https://www.herber.de/bbs/user/101859.xlsx
Gut wäre es, wenn die Lösung in VBA umsetzbar wäre.
Kann mir jemand helfen?
Vielen Dank!
Gruß
Malte

Anzeige
AW: Stunden auf halbe bzw. volle Stunden runden
28.11.2015 11:48:34
Sepp
Hallo Malte,
Tabelle1

 ABCDEFGH
1        
2 Std-Teil2     
3     Es muss als Ergebnis stehen  
4 12:5912:30:0012:30:00 12:30  
5 13:0513:00:0013:00:00 13:00  
6 13:3113:30:0013:30:00 13:30  
7        

Formeln der Tabelle
ZelleFormel
C4=ABRUNDEN(B4*24*$C$2;0)/(24*$C$2)
D4=KÜRZEN(C4*24*$C$2;)/($C$2*24)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Oder als VBA-Code.
Sub roundTime()
Dim rng As Range

For Each rng In Tabelle1.Range("B4:B6")
  If IsNumeric(rng) Then
    rng.Offset(0, 1) = Fix(rng * 24 * 2) / (24 * 2)
  End If
Next
End Sub

Gruß Sepp

Anzeige
AW: Stunden auf halbe bzw. volle Stunden runden
28.11.2015 14:26:15
Malte
Vielen Dank!

AW: Format der Uhrzeitenangaben maßgebend ...
28.11.2015 17:38:54
neopa
Hallo Malte,
... aus Deiner Eingangsfragestellung war nur zu entnehmen, dass Deine Uhrzeiten als sogenannten Industriezeit (sichtbare Dezimalzahlen) angeben sind. Dafür waren dann unsere angegebenen Rundungsformeln auch korrekt.
Nun schreibst Du aber auf einmal, dass Du Uhrzeitangaben gerundet haben willst. Uhrzeitangaben sind in Excel spez. formatierte Dezimalzahlen, die dann natürlich auch einer entsprechend angepassten Rundungsformel benötigen, so wie sie Dir nun Sepp aufgezeigt hat.
Mehr zu Uhrzeiten in Excel sieh mal hier: http://www.online-excel.de/excel/singsel.php?f=130 und hier: http://www.online-excel.de/excel/singsel.php?f=128
Gruß Werner
.. , - ...
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Stunden auf halbe bzw. volle Stunden runden in Excel


Schritt-für-Schritt-Anleitung

Um Stunden in Excel auf halbe oder volle Stunden zu runden, kannst du die folgenden Schritte befolgen:

  1. Eingabewerte festlegen: Stelle sicher, dass deine Uhrzeiten korrekt eingegeben sind (z.B. 12:59, 13:05, 13:31).
  2. Formel verwenden: Um die Uhrzeit auf volle Stunden zu runden, kannst du die folgende Formel verwenden:
    =RUNDEN(A1*24;0)/24

    Für halbe Stunden kannst du diese Formel verwenden:

    =RUNDEN(A1*48;0)/48
  3. VBA-Makro erstellen: Alternativ kannst du ein VBA-Makro verwenden. Öffne den VBA-Editor (Alt + F11) und füge den folgenden Code ein:
    Sub roundTime()
       Dim rng As Range
       For Each rng In Tabelle1.Range("B4:B6")
           If IsNumeric(rng) Then
               rng.Offset(0, 1) = Fix(rng * 24 * 2) / (24 * 2)
           End If
       Next
    End Sub
  4. Das Makro ausführen: Schließe den VBA-Editor und führe das Makro aus, um die Zeitwerte entsprechend zu runden.

Häufige Fehler und Lösungen

  • Falsche Ergebnisse bei der Rundung: Wenn du unerwartete Ergebnisse erhältst, überprüfe, ob die Uhrzeiten im richtigen Format eingegeben wurden. Excel behandelt Uhrzeiten als dezimale Zahlen.
  • Uhrzeit wird nicht korrekt gerundet: Stelle sicher, dass du die richtige Formel verwendest. Die Formel für volle Stunden ist anders als die für halbe Stunden.
  • VBA-Code funktioniert nicht: Überprüfe, ob du den Code in das richtige Modul eingefügt hast und dass die Zeilenbezüge korrekt sind.

Alternative Methoden

Neben den oben genannten Formeln und dem VBA-Makro gibt es auch andere Möglichkeiten, um Stunden zu runden:

  • Excel-Funktionen nutzen: Verwende die Funktionen ABRUNDEN() oder AUFRUNDEN() je nach Bedarf.
  • Formatierung anpassen: Du kannst die Zellformatierung ändern, um die Anzeige der gerundeten Werte zu verbessern und sicherzustellen, dass sie korrekt interpretiert werden.

Praktische Beispiele

Hier sind einige Beispiele, um die oben genannten Methoden zu verdeutlichen:

Eingabe Formel für volle Stunden Ergebnis für volle Stunden Formel für halbe Stunden Ergebnis für halbe Stunden
12:59 =RUNDEN(A1*24;0)/24 13:00 =RUNDEN(A1*48;0)/48 12:30
13:05 =RUNDEN(A2*24;0)/24 13:00 =RUNDEN(A2*48;0)/48 13:00
13:31 =RUNDEN(A3*24;0)/24 14:00 =RUNDEN(A3*48;0)/48 13:30

Tipps für Profis

  • Verwende benutzerdefinierte Formate: Du kannst die Zellen so formatieren, dass sie nur die benötigten Stunden anzeigen.
  • Makros automatisieren: Wenn du häufig mit Stunden und deren Rundung arbeitest, erstelle ein benutzerdefiniertes Menü in Excel, um deine Makros einfacher zugänglich zu machen.
  • Datenvalidierung: Setze Datenvalidierungsregeln ein, um sicherzustellen, dass nur gültige Zeitangaben eingegeben werden.

FAQ: Häufige Fragen

1. Wie kann ich Uhrzeiten in Excel auf volle Stunden runden?
Verwende die Formel =RUNDEN(A1*24;0)/24, um die Uhrzeiten auf volle Stunden zu runden.

2. Kann ich auch halbe Stunden runden?
Ja, dafür kannst du die Formel =RUNDEN(A1*48;0)/48 verwenden.

3. Funktioniert das auch in älteren Excel-Versionen?
Ja, die verwendeten Formeln und VBA-Codes sind auch mit älteren Versionen von Excel kompatibel. Achte darauf, dass du die richtigen Zellformate verwendest.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige