The VBA function DateAdd () adds a given number of minutes to a time:
Sub UhrzeitAddieren()
ThisWorkbook.Worksheets("Tabelle1").Activate
Range("E3").Value = DateAdd("n", _
Range("E2").Value, Range("E1").Value)
Range("E1,E3").NumberFormatLocal = "hh:mm"
End Sub
Die Funktion DateAdd() dient zum Addieren eines Zeitintervalls (zweiter Parameter) zu einer Zeitangabe (dritter Parameter). Die Einheit des Zeitintervalls wird im ersten Parameter angegeben. Es gibt folgende Möglichkeiten:
yyyy: year
q: quarter
m: month
y: day of the year
d: day
w: day of the week
ww: week
h: hour
n: minute
s: second
Im vorliegenden Beispiel wird zur Uhrzeit 15:38 Uhr ein Zeitintervall von 90 Minuten addiert, das Ergebnis ist 17:08 Uhr. Die beiden Zellen mit den Uhrzeitangaben werden zusätzlich passend formatiert.