So verwenden sie die dateserial-funktion in vba (mit beispiel)

Sie können die DateSerial- Funktion in VBA verwenden, um ein Datum für einen bestimmten Tag, Monat und Jahr zurückzugeben.

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

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

Dieses spezielle Makro gibt Datumswerte im Bereich D2:D13 zurück, indem es die Jahreswerte in Spalte C, die Monatswerte in Spalte B und die Tageswerte in Spalte A verwendet.

Das folgende Beispiel zeigt, wie Sie die DateSerial- Funktion in der Praxis verwenden.

Beispiel: So verwenden Sie die DateSerial-Funktion in VBA

Angenommen, wir haben in Excel die folgenden Spalten, die Tag, Monat und Jahr für verschiedene Daten anzeigen:

Angenommen, wir möchten die Datumswerte in Spalte D anzeigen und dabei die Tages-, Monats- und Jahreswerte in jeder Zeile verwenden.

Dazu können wir das folgende Makro erstellen:

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

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

Spalte D zeigt den Datumswert an, der sich aus der Verwendung der Tages-, Monats- und Jahreswerte aus den Spalten A, B bzw. C ergibt.

Hinweis : Die vollständige Dokumentation für die VBA- DateSerial- Funktion 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 das Datum in VBA in eine Wochennummer
So berechnen Sie Tage zwischen zwei Daten in VBA