Uhrzeiten in Zelle ändern

Question

Hallo,
ich habe eine Tabelle und möchte die Zeiten mittels Makro anpassen. habe schon nach einigen Lösungen gesucht, aber noch nichts passendes gefunden. Hier mal ein Besipiel.

09:03:00
09:04:00
09:05:00
09:06:00
09:07:00
09:08:00
09:09:00
09:10:00
09:11:00
09:12:00

Ich möchte über einen Button die Zeit ändern, sodass Zeile 1 bei 00:00:01 beginnt und automatisch bis zur letzten beschrieben Zelle fortgeführt wird.
Gibt es da eine Möglichkeit? Bin für jede Hilfe dankbar.
Gruß
M.H

Answer 1

Hallo M.H.!

Ohne genau verstanden zu haben, was Du eigentlich erreichen möchtest, hier mal ein Beispiel, wie die Zeit immer solange eine Sekunde erhöht wird, wien Daten in Spalte A stehen.

Sub Zeit_erhoehen()
Dim lngRow As Long
Dim dtTime As Date

'vorh. Daten in Spalte A, Zeitwerte werden in Spalte B geschrieben
For lngRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
dtTime = dtTime + CDate("00:00:01")
Cells(lngRow, 2) = dtTime
Next
End Sub

MfG,
Oliver