Zeitintervall addieren mit VBA in Microsoft Excel

Mit der VBA-Funktion DateAdd lässt sich ein Zeitintervall zu einem Datum oder einer Uhrzeit addieren. Dieses Beispiel addiert die Minuten aus E2 zur Startzeit in E1 und schreibt das Ergebnis nach E3:

Sub MinutenAddieren()
    Dim ws As Worksheet
    Dim startzeit As Date
    Dim minuten As Double
    Set ws = ThisWorkbook.Worksheets("Tabelle1")
    If Not IsDate(ws.Range("E1").Value) Or _
       Not IsNumeric(ws.Range("E2").Value) Then
        MsgBox "Bitte Startzeit und Minuten prüfen."
        Exit Sub
    End If
    startzeit = CDate(ws.Range("E1").Value)
    minuten = CDbl(ws.Range("E2").Value)
    ws.Range("E3").Value = DateAdd("n", minuten, startzeit)
    ws.Range("E1,E3").NumberFormat = "hh:mm"
End Sub

"n" steht für Minuten, "h" für Stunden, "d" für Tage und "ww" für Wochen. Beim Addieren kann sich das Datum ändern, wenn das Ergebnis über Mitternacht hinausgeht. Ein Zellformat nur mit Stunden und Minuten zeigt den Tageswechsel nicht an; verwenden Sie bei Bedarf zusätzlich ein Datumsformat.

Die Einheit "w" bedeutet Wochentag, nicht Arbeitstage von Montag bis Freitag. Für Arbeitstage ist eine eigene Kalenderlogik nötig.

Quellen und Prüfstand

Inhaltlich überarbeitet am 2026-10-13. Einheiten und Tageswechsel verlässlich erläutert.

• Microsoft Learn: DateAdd function