Datumsangabe (Ausfüllen automatisch)
05.05.2020 13:51:11
Christian
ich habe ein Problem und hoffe ihr könnt mir weiterhelfen. Ich bin neu im Forum und hoffe, dass ich mein Problem verständlich beschreiben kann. Ich habe ebenfalls eine Beispiel-Datei beigefügt:
https:\/\/www.herber.de/bbs/user/137275.xlsx
Ich habe 2 kleine Makros geschrieben, die mir eine Datums- Uhrzeitangabe (viertelstündlich) automatisch ausfüllen lassen sollen. Das klappt soweit auch ganz gut. Allerdings habe ich jetzt das Problem, dass bei der 97. Viertelstunde, also genau beim Tageswechsel die Angabe den Tag nicht hochzählt, sondern erst im nächsten Schritt bei der 98. Viertelstunde.
Wenn ich ein Excelblatt nehme und dort das Datum einfach mit "Datum = Datum + 1/96" hochzählen lasse, wird der 97. Eintrag korrekt ausgegeben.
Ich verstehe nicht, warum bei den Makros dieser Eintrag "falsch" ist. Beim ersten Makro habe ich "DateAdd" verwendet und beim zweiten einfach die Excelformel nachgebaut und bei beiden Versionen ist der 97. Eintrag falsch. In meiner Beispielmappe ist es Zeile 100, daher nicht verwirrt sein.
Vorab vielen Dank für eure Hilfe! :)
Anbei meine Makros:
Sub Datum_Uhrzeit()
'Variablen definieren
Dim x As Date
Dim y As Double
Dim z As Integer
Dim i As Integer
'Anzahl der Daten die übertragen werden sollen
z = Worksheets("Datum_Uhrzeit").Cells(5, 3)
'Zelle der Datumseingabe
x = Worksheets("Datum_Uhrzeit").Cells(4, 2).Value
'Schleife über die Anzahl der Daten, die geschrieben werden sollen
y = 15
For i = 1 To z
x = DateAdd("n", y, x)
Worksheets("Datum_Uhrzeit").Cells(i + 4, 2) = x
Next i
End Sub
Sub Datum_Uhrzeit2()
Dim x As Date
Dim y As Double
Dim z As Integer
Dim i As Integer
'Anzahl der Daten die übertragen werden sollen
z = Worksheets("Datum_Uhrzeit").Cells(5, 3)
'Zelle der Datumseingabe
x = Worksheets("Datum_Uhrzeit").Cells(4, 2).Value
For i = 1 To z
Worksheets("Datum_Uhrzeit").Cells(i + 3, 4) = x
x = x + 1 / 96
Next i
End Sub
