So fügen sie in vba tage zum heutigen tag hinzu (mit beispielen)

Sie können die DateAdd- Funktion in VBA verwenden, um einem Datum eine bestimmte Anzahl von Tagen hinzuzufügen.

Hier ist eine gängige Methode, diese Funktion in der Praxis zu verwenden:

 SubAddDays ()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = DateAdd(" d ", 4, Range(" A " & i))
    Next i
    
End Sub

Dieses spezielle Makro fügt jedem Datum im Bereich A2:A10 vier Tage hinzu und zeigt die neuen Daten im Bereich B2:B10 an.

Beachten Sie, dass das Argument „d“ in der DateAdd- Funktion angibt, dass wir Tage zu Datumsangaben hinzufügen möchten und nicht eine andere Zeiteinheit.

Eine vollständige Liste der Einheiten, die Sie in der DateAdd- Funktion verwenden können, finden Sie auf der VBA-Dokumentationsseite .

Das folgende Beispiel zeigt, wie diese Syntax in der Praxis verwendet wird.

Beispiel: Tage zu diesem Tag in VBA hinzufügen

Angenommen, wir haben die folgende Datumsliste in Excel:

Angenommen, wir möchten zu jedem Datum vier Tage hinzufügen und die neuen Daten in Spalte B anzeigen.

Dazu können wir das folgende Makro erstellen:

 SubAddDays ()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = DateAdd(" d ", 4, Range(" A " & i))
    Next i
    
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass Spalte B jedes Datum in Spalte A plus vier Tage enthält.

Fühlen Sie sich frei, den numerischen Wert in der DateAdd- Funktion zu ändern, um jedem Datum eine andere Anzahl von Tagen hinzuzufügen.

Hinweis : Die vollständige Dokumentation der DateAdd- Funktion in VBA finden Sie hier .

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

So vergleichen Sie Daten in VBA
So konvertieren Sie eine Zeichenfolge in VBA in ein Datum
So berechnen Sie Tage zwischen zwei Daten in VBA