REST Funktion Anhand von Uhrzeiten VBA
08.11.2018 11:39:17
Uhrzeiten
ich habe folgendes Problem:
ich habe in Spalte B mehrere Uhrzeiten untereinander stehen, die (in zweier Schritten) subtrahiert werden sollen und das Ergebnis in Spalte E dargestellt wird - soweit so gut.
Spannend wird es beim Tageswechsel.
Dabei ist für mich am einfachsten die REST Funktion, klappt auch super in Excel.
Beispielsweise: = REST(B2-B1;1)
Damit stellt der Tageswechsel kein Problem mehr da. Mein Problem ist diese Formel in VBA zu übertragen.
Wenn ich den unten stehenden Code anwende kommt 0 raus, warum? wo ist der Fehler?
Auskommentiert ist die Makro Aufzeichnung, die mir aber nicht weiterhilft.
Ich hoffe Ihr könnt mir weiter helfen.
Vielen Dank im voraus.
Option Explicit
Sub minus()
Dim wksEingabe As Worksheet
Dim a As Long
Set wksEingabe = ActiveWorkbook.Worksheets("Tabelle1")
For a = 1 To wksEingabe.UsedRange.Rows.Count Step 2
wksEingabe.Cells(a, 5) = (wksEingabe.Cells(a + 1, 2) - wksEingabe.Cells(a, 2)) Mod 1
Next a
'ActiveCell.FormulaR1C1 = "=MOD(R[-2]C[-7]-R[-3]C[-7],1)"
End Sub