MessageBox mit Datumsdifferenz
Thomas
ich möchte aus der letzten beschriebenen Zeile aus Spalte A das Enddatum mit dem Datum aus Zelle A4 subtrahieren um davon ein Datumsdifferenz zu erreichnen. Dieses Ergebnis soll mit einer MessageBox ausgegeben werden.
Als Programmabschnitt habe ich:
Dim LRow As Long
Dim Endzeit As Variant
Dim Startzeit As Variant
On Error Resume Next
LRow = [LOOKUP(2,1/($A$1:$A$65535""),ROW($A:$A))]
On Error GoTo 0
If LRow > 0 Then
Endzeit = Cells(LRow, 1).Value
Startzeit = Cells(((LRow - LRow) + 4), 1).Value
MsgBox " Laufzeit = " & Format((Endzeit - Startzeit), "[hh]:mm")
End If
Endzeit = "28.03.12 02:16:20"
Startteit = "27.03.12 20:54:22"
Differenz daraus sollte demnach "05:21" sein. In der MsgBox bekomm ich dagegen "12" angezeigt.
Wisst Ihr wo mein Fehler ist ?
Vielen Dank und Gruß
Thomas
Anzeige