Ich grüble nun schon eine Weile und komme nicht weiter. Mit folgendem Makro füge ich Uhrzeiten untereinander in Spalte A ein. Die Differenz zwischen den Uhrzeiten ergibt sich aus der Minuteneingabe am Anfang des Makros.
Option Explicit
Sub Minuten() Dim dblZeitabstaende As Double Dim intMinute As Integer Dim i As Integer Dim cdTime As Date Dim cdZeit As Date intMinute = InputBox("Minutenzahl als Dezimalzahl (Beispiel für 25 Minuten: 25) eintragen...") dblZeitabstaende = CDate("00:" & intMinute) * 24 cdZeit = Format((dblZeitabstaende) / 24, "hh:mm") cdTime = CDate("00:00:00") For i = 1 To 24 / dblZeitabstaende Cells(i, 1) = Format(cdTime, "hh:mm") cdTime = cdTime + cdZeit Next End Sub Nachfolgend mal ein Auszug, wie das dann in der Tabelle in Spalte A aussieht.
Tabelle2
A | B | C | D | |
1 | 00:00 | 00:00 | ||
2 | 00:25 | 00:25 | ||
3 | 00:50 | 00:50 | ||
4 | 01:15 | 01:00 | ||
5 | 01:40 | 01:15 | ||
6 | 02:05 | 01:40 | ||
7 | 02:30 | 02:00 | ||
8 | 02:55 | 02:05 | ||
9 | 03:20 | 02:30 | ||
10 | 03:45 | 02:55 | ||
11 | 04:10 | 03:00 | ||
12 | 04:35 | 03:20 | ||
13 | 05:00 | 03:45 | ||
14 | 05:25 | 04:00 | ||
15 | 05:50 | 04:10 | ||
16 | 06:15 | 04:35 | ||
17 | 06:40 | 05:00 |
Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Nun möchte ich aber bei Eingabe von z.B. 25 Minuten, das, wie in der Abbildung in Spalte C gekennzeichnet, volle Stunden eingefügt werden. Also 00:50 die Uhrzeit 01:00, nach 01:40 die Uhrzeit 02:00 usw. und da hänge ich im Moment, weil ich keinerlei Ansatz habe, wie ich das anstellen könnte.
Daher meine Frage, ob jemand von Euch einen Lösungsweg wüsste?
Gruß,
Kasimir