VBA Rechnen mit Uhrzeiten
24.10.2018 10:39:02
Matthias
ich hab mal wieder ein Problem und finde die Lsg. nicht und hoffe Ihr könnt mir helfen :)
ich habe in einer Exceltabelle eine Startuhrzeit (Zeile 22) und Enduhrzeit (Zeile 23) eines Termins festgelegt. Außerdem habe ich eine Dauer für Sessions (Zeile 24). Ich möchte jetzt ermitteln wieviele Sessions (Schleifenzähler) ich abhalten kann ohne die Enduhrzeit zu überschreiten. Die Uhrzeiten stehen im Format "hh:mm" in der Excel.
Problem ich bekomme teils die falsche Anzahl geliefert und habe daher mal probiert die Endzeit bspw. 16Uhr mit der sessionzahl 6 bei 60min und 10Uhr start abzuziehen. Ergebnis ist nicht 0 sonder 1,1...E-16
Hat jmd. Ideen oder eine Lsg.?
Sub Zeiten()
Dim ZeitenArr() As Variant
Dim Schleifenzähler As Long
Dim spalte As Long
Schleifenzähler = 1
spalte = 4
With ThisWorkbook.ActiveSheet
Do Until Not DateAdd("n", (Schleifenzähler + 1) * .Cells(24, spalte), .Cells(22, _
spalte)) Matthias