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

VBA= Zeiten werden nicht richtig gezählt

Forumthread: VBA= Zeiten werden nicht richtig gezählt

VBA= Zeiten werden nicht richtig gezählt
Roland
Hallo,
ein Makro schreibt mir in der 1. Spalte Uhrzeiten in 15 Minuten Rythmus. Das Problem ist, wenn ein Datumswechsel geschieht: Dann wird der Tag nicht erhöht, sondern es wird 0 Uhr des vorausgegangenen Tages angezeigt. Ab 0Uhr 15 zählt er wieder richtig:
08.11.2009 23:00
08.11.2009 23:15
08.11.2009 23:30
08.11.2009 23:45
08.11.2009 00:00 richtig wäre: 09.11.2009 00:00
09.11.2009 00:15
09.11.2009 00:30
09.11.2009 00:45
09.11.2009 01:00
Hier das Marko:

Sub minutenaddieren()
Dim anfang, ende, i As Date
Dim a, c As Long
anfang = DateSerial(2009, 11, 8) + TimeSerial(23, 0, 0)
ende = DateSerial(2009, 11, 9) + TimeSerial(1, 0, 0)
c = 4
a = 1
i = anfang
Do While i 

Ist das ein Bug von Excel?
Grüße aus dem Badischen
Roland
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA= Zeiten werden nicht richtig gezählt
27.11.2009 11:54:54
Ptonka
Hallo,
so klappt es:
Sub minutenaddieren()
Dim anfang, ende, i As Date
Dim a, c As Long
anfang = DateSerial(2009, 11, 8) + TimeSerial(23, 0, 0)
ende = DateSerial(2009, 11, 13) + TimeSerial(1, 0, 0)
c = 4
a = 1
i = anfang
Do While i 
Gruß,
Ptonka
Anzeige
Danke, Ptonka, so klappt es! oT
27.11.2009 18:19:13
Roland
AW: VBA= Zeiten werden nicht richtig gezählt
27.11.2009 12:04:34
Harald
Hallo Roland,
vielleicht ein Bug von VBA, aber nicht notwendig von Excel.
Wenn man per Formel rechnet ergibt sich der richtige Wert:
A1: 08.11.2009 23:45:00
A2: =A1+"0:15"
ergibt richtig 09.11.2009 00:00
Interessanterweise ist im VBA-Code um Mitternacht i=09.11.2009, erst in der Zelle wird daraus 08.11.2009 00:00.
Es ist also ein Problem der Zellformatierung. Leider finde ich auf die Schnelle keinen Weg, wie man das gerade biegen könnte.
Gruß
Harald
Anzeige
Anzeige
Anzeige
Anzeige