Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1784to1788
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1784to1788
1784to1788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Rechnen mit Uhrzeiten

VBA - Rechnen mit Uhrzeiten
08.10.2020 10:22:56
luka
Hallo zusammen,
folgendes Verstehe ich gerade leider nicht, vielleicht kann mir ja jemand auf die Sprünge helfen:
Dim Startzeit As Date: Startzeit = Range("C" & reihe).Text
Dim Endzeit As Date: Endzeit = Range("D" & reihe).Text
Dim Gesamtstunden As Date: Gesamtstunden = Endzeit - Startzeit
If Gesamtstunden > "06:00:00" And Gesamtstunden < "09:00:00" Then
Gesamtstunden = Gesamtstunden - CDate("00:30")
ElseIf Gesamtstunden > "09:00:00" Then
Gesamtstunden = Gesamtstunden - CDate("00:45")
End If
If Gesamtstunden = "06:00:00" Then
Cells(reihe, spalte) = 6
Else
Cells(reihe, spalte) = Gesamtstunden
End If
Wenn es 06:00:00 Gesamtstunden sind, geht er dennoch in den Else Bereich der If Abfrage. Wenn ich vor der If Abfrage nochmal "Gesamtstunden = "06:00:00" eintrage, funktioniert es, wieso?

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Rechnen mit Uhrzeiten
08.10.2020 10:31:06
Daniel
Hi
Datumswerte sind Zahlen und keine Text
dh wenn, dann Startzeit = Range(…).Value
wenn du hier mit Texten arbeitest und das mischst tritt die implizite Typumwandlung in Aktion und da ist man nie sicher, ob die für die Umwandlung das TMJ- oder MTJ-Format anzieht
auch für die Vergleiche in den IFs solltest du die Werte nicht als Text, sondern als Datumswert angeben, dh mit CDate, DateValue oder DateSerial (wobei ich DateSerial bevorzuge, weil das das eindeutigste ist)
Gruß Daniel
AW: VBA - Rechnen mit Uhrzeiten
08.10.2020 10:41:31
luka
Danke für deine Antwort. Ich habe es jetzt entsprechend geändert, es funktioniert leider dennoch nicht. Habe ich hier noch irgendwo einen Fehler?
Dim Startzeit As Date: Startzeit = Range("C" & reihe).Value
Dim Endzeit As Date: Endzeit = Range("D" & reihe).Value
Dim Gesamtstunden As Date: Gesamtstunden = Endzeit - Startzeit
If Gesamtstunden > TimeSerial(6, 0, 0) And Gesamtstunden < TimeSerial(9, 0, 0) Then
Gesamtstunden = Gesamtstunden - TimeSerial(0, 30, 0)
ElseIf Gesamtstunden > TimeSerial(9, 0, 0) Then
Gesamtstunden = Gesamtstunden - TimeSerial(0, 45, 0)
End If
If Gesamtstunden = TimeSerial(6, 0, 0) Then
Cells(reihe, spalte) = 6
Else
Cells(reihe, spalte) = Gesamtstunden
End If
Anzeige
AW: VBA - Rechnen mit Uhrzeiten
08.10.2020 10:54:01
Daniel
Beschreibe "funktioniert nicht" bitte ausführlicher und präziser.
beschreibe bitte auch, was tatsächlich in den verwendeten Zellen steht (im Zahlenformat Standard)
Ist dir klar, dass 6 in Excel nicht 6 Stunden, sondern 6 Tage sind?
außerdem hast du noch eine Lücke, wenn die Gesamtstunden genau 9:00 sind, wird keine Pausenzeit abgezogen. Ist das tatsächlich so gewünscht?
Welchen Sinn macht es, nur bei genau 6:00:00 nochmal die 6 in die Zelle zu schreiben und bei allen anderen Zeitwerten (auch kleiner 6h) den genauen Zeitwert?
Gruß Daniel
AW: VBA - Rechnen mit Uhrzeiten
08.10.2020 11:07:43
luka
Das "funktioniert nicht", bezieht sich auf das anfängliche Problem. Bei der If-Abfrage wird nicht erkannt, wenn die Gesamtstunden genau 6 Stunden sind, das heißt es werden immer genau die Gesamtstunden genommen und nicht die „6“ eingetragen falls es 6 Stunden sind.
In den angesprochenen Zellen stehen die Uhrzeiten (zB 09:30:00) mit der Formatierung [hh]:mm.
Der Sinn dahinter ist der, dass ich mit diesem Makro ein „Fremdes“ Worksheet ausfülle, dort werden alle Uhrzeiten ohne Doppelpunkt eingetragen. Wenn ich die Zeiten so rechne funktioniert auch alles, außer bei 06:00 Stunden, dann springt das „Fremde Makro“ auf 0,25. Wenn ich allerdings nur die Zahl 6 in die Zelle schicke, rechnet das „Fremde“ Makro dies zu 6:00 Stunden wie gewollt.
Die Gegebenheiten kann ich leider nicht umschreiben, ich versuche das ganze damit nur für mich selbst zu fixen und mir Zeit einzusparen.
Anzeige
AW: VBA - Rechnen mit Uhrzeiten
08.10.2020 11:14:26
Daniel
HI
da kenne sich jetzt deine Dateien und das Zusammenspiel der Makros zuwendig, um dir da was konkretes sagen zu können.
Gruß Daniel
AW: VBA - Rechnen mit Uhrzeiten
08.10.2020 13:05:11
Daniel
Hi
hier trifft das altbekannte Problem aller Computer zu:
da der Speicherplatz begrenzt ist, können Computer manche Zahlen nur ungenau darstellen und somit kommt es dann bei Berechnungen zu minimalen Abweichungen, hier
gesamtstunden- timeserial(6, 0, 0) = -5,5511*10^-17
also erst 17 Stellen nach dem Komma.
normalerweise macht das nichts aus, aber bei Vergleichen ist das das entscheidende "Zünglein an der Waage".
die Abhilfe für dieses Problem ist in der Regel das RUNDEN auf eine für die Berechnung ausreichende Stellenzahl.
bei Zeitwerten kann man auch einfach in Text konvertieren, so dass nur Stunden, Minuten und Sekunden übrig bleiben: 
If Format(Gesamtstunden, "hh:mm:ss") = "06:00:00" then
Gruß Daniel
Anzeige
AW: VBA - Rechnen mit Uhrzeiten
08.10.2020 13:10:37
luka
Ahh Ok, gut zu wissen Danke. Beim Debuggen wird ja nur 06:00:00 dargestellt, deswegen hab ich da keinen Fehler gesucht, ist aber gut zu wissen.
Jetzt funktioniert es jedenfalls ohne Probleme, Dank Dir!
AW: VBA - Rechnen mit Uhrzeiten
08.10.2020 13:14:41
Daniel
Ja, die Abweichung ist auch so klein, dass sie, wenn man sich Gesamtstunden direkt anzeigen lässt, nicht angezeigt wird. Erst mit Bildung dieser Differenz wird sie sichtbar.
Gruß Daniel
AW: VBA - Rechnen mit Uhrzeiten
08.10.2020 11:41:55
Frank
Hallo luka,
6 Stunden sind als Zahl genau 0.25, nämlich 1/4 Tag. Wenn Du in eine Zelle im Format [hh]:mm von Hand nur eine 6 einträgst, interpretiert Excel das als 6 Tage, also 144:00. Wenn Du dagegen 6:00 einträgst, interpretiert Excel das als Sunden:Minuten.
Wenn Du den Wert per VBA einträgst oder abfragst sind das unabhängig vom Format immer Tage. Du musst den Wert mit 24 multiplizieren, um die Stunden zu erhalten.
Viele Grüße
Frank
Anzeige
AW: VBA - Rechnen mit Uhrzeiten
08.10.2020 12:31:41
luka
Dann weiß ich wenigstens schon mal, warum dann da 0.25 steht, Danke.
AW: VBA - Rechnen mit Uhrzeiten
08.10.2020 11:47:20
Luschi
Hallo luka,
solange Du nur theoretisch diskutierst. statt endlich mal Butter bei die Fische zu geben, kannst Du auch erzählen, im Himmel ist Weinachstmarkt - es bringt NICHTS.
Zeige endlich eine Demodatei mit neutralisierten Daten - und es wird auch Hilfe bei Dir ankommen.
Gruß von Luschi
aus klein-Paris
AW: VBA - Rechnen mit Uhrzeiten
08.10.2020 14:29:21
Frank
Hallo luka,
ich rechne lieber mit Sekunden statt Stunden.
So habe ich ganze Zahlen und gehe der Fließkomma-Ungenauigkeit aus dem Weg.

Sub demo()
Dim Startzeit As Date, Endzeit As Date, Gesamtstunden As Date, Sekunden As Long
Const SekundenProStunde = 3600, SekundenProMinute = 60
Range("C1:D1") = Empty
Startzeit = Range("A1").Value
Endzeit = Range("B1").Value
Gesamtstunden = Endzeit - Startzeit
Sekunden = Round(Gesamtstunden * 24 * SekundenProStunde, 0)
If Sekunden > 6 * SekundenProStunde And Sekunden  9 * SekundenProStunde Then
Sekunden = Sekunden - 45 * SekundenProMinute
End If
Cells(3, 1) = Sekunden / SekundenProStunde / 24
If Sekunden = 6 * SekundenProStunde Then
Cells(1, 3) = "Bla"
Else
Cells(1, 4) = "Blub"
End If
End Sub
Sub demokurz()
Dim sek As Long
Const sph = 3600, spm = 60
[C1:D1] = Empty
sek = Round(([B1] - [A1]) * 24 * sph, 0)
If sek > 6 * sph And sek  9 * sph Then sek = sek - 45 * spm
[A3] = sek / sph / 24
If sek = 6 * sph Then [C1] = "Bla" Else [D1] = "Blub"
End Sub

Nebenbei: Ab 6:00:01 bis 8:59:59 werden 30 Minuten abgezogen und ab 9:00:01 45 Minuten. Bei exakt 9:00:00 und bis 6:00:00 wird nichts abgezogen. Ist das gewollt? Sonst ggf. > durch >= erseutzen.
Viele Grüße
Frank
Anzeige

307 Forumthreads zu ähnlichen Themen

Felder mit Datum und Uhrzeit vergleichen?
Lauren

Hallo zusammen,
neues Thema neues Glück :)
Nachdem mir bei meinem letzten Projekt tatkräftig geholfen wurde und ich auch das Projekt erfolgreich beenden konnte hier eine neue Problematik an der ich hängengeblieben bin.
Es sind folgende Saplten vorhanden
Spalte A = Datumanfang in...
16.09.2008 16:24:00
Thread-ID: 1010159
6 Beiträge
Anzeige
Aktuelles Datum und aktuelle Uhrzeit
Herbert

Hallo Experten,
ich möchte gern in Zelle A1 das aktuelle Datum und die aktuelle Uhrzeit ausgegeben habe. So soll es aussehen: "20.11.2008 11:40:04".
Bin als Laie schon ziemlich überfordert und für jede Hilfe dankbar.
Gruß Herbert
20.11.2008 11:38:00
Thread-ID: 1026354
2 Beiträge
Datum und Uhrzeit mit einem Tastendruck
P.

Hallo.
ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
Kann mir jemand helfen? Im Archiv habe ich nicht...
06.12.2008 13:05:21
Thread-ID: 1030655
13 Beiträge
Anzeige
DATUM UND UHRZEIT
Lutz

Hallo zusammen,
hab mich für folgende Lösung entschieden :
'********************************************************************************
'*...
27.01.2009 21:18:30
Thread-ID: 1044394
4 Beiträge
DATUM UND UHRZEIT
eric

Hallo,
man kann das auch aufwendiger in der unserform mit einer abfrage machen, die idee mit dem modul funktioniert sicher.
eric
27.01.2009 21:37:18
Thread-ID: 1044401
2 Beiträge
VBA Ausdruck des Moduls mit aktueller Uhrzeit
MBorn

Hallo,
weiß vielleicht jemand von Euch, wie man ein VBA-Modul ausdruckt und es schafft,
die aktuelle Zeit / und das Datum in der ersten Zeile mit auszudrucken?
Gruß und Dank,
Born
31.01.2009 14:30:56
Thread-ID: 1045652
4 Beiträge
VBA DateFormat zu String convertieren
MBorn

Guten Morgen,
weiß jemand, wie man ein Datum, das im DateFormat (als Zahl) vorliegt
in das Textformat (yyyy-mm-dd) konvertiert. Sodaß das Ergebnis ein Text ist?
sodaß beispielsweise aus der Zahl 39868 das Text-Datum "2009-02-24" wird?
Herzlichen Dank,
Born
18.03.2009 12:59:43
Thread-ID: 1061376
12 Beiträge
Datum und Uhrzeit aus Textbox passend in Tabelle e
Karsten

Hallo
Ich lese mit einer Userform ein Datum und eine Uhrzeit aus.
Wenn ich die wieder in die gleich Zelle schreiben lasse, werden sie nicht rechtsbündig sondern linksbündig gespeichert und nicht richtig "benutzt.
Wenn ich in der Zelle nur Enter drücke, wird das Datum und auch die Uh...
06.04.2009 19:01:58
Thread-ID: 1067159
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
1
12
4
3
1
3
11
2
1
5
5
4
3
11
9
4
1
4
2
2
7
6
2