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

Sie können die DateValue- Funktion in VBA verwenden, um den Datumswert aus einer bestimmten Zeichenfolge zurückzugeben.

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

 Sub GetDateValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = DateValue(Range(" A " & i))
Next i
    
End Sub

Dieses spezielle Makro extrahiert den Datumswert aus Datums- und Uhrzeitangaben im Bereich A2:A7 und gibt diesen Datumswert im entsprechenden Bereich B2:B7 zurück.

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

Beispiel: So verwenden Sie die DateValue-Funktion in VBA

Angenommen, wir haben die folgende Datums-/Uhrzeitspalte in Excel:

Angenommen, wir möchten das Datum aus jeder Datums- und Uhrzeitangabe in Spalte A extrahieren und es in Spalte B anzeigen.

Dazu können wir das folgende Makro erstellen:

 Sub GetDateValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = DateValue(Range(" A " & i))
Next i
    
End Sub

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

Spalte B zeigt den Datumswert für jedes Datum und jede Uhrzeit in Spalte A an.

Zum Beispiel:

• Die DateValue-Funktion gibt den 01.01.2023 vom 01.01.2023 10:15:34 zurück
• Die DateValue-Funktion gibt den 01.03.2023 vom 01.03.2023 12:34:18 zurück
• Die DateValue-Funktion gibt den 01.05.2023 vom 01.05.2023 8:23:00 zurück

Und so weiter.

Hinweis : Die vollständige Dokumentation der DateValue- 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:

VBA: So vergleichen Sie Daten
VBA: So erhalten Sie den Monatsnamen vom Datum
VBA: Zahl größer als Datum