Wie verwende ich die Funktion DateValue in VBA?

In VBA (Visual Basic for Applications) wird die `DateValue`-Funktion verwendet, um ein Datum in Datumsformat zu konvertieren. Sie nimmt einen Datumsausdruck in Form einer Zeichenkette und wandelt ihn in einen Datumswert um, den Sie dann in Ihrer VBA-Anwendung verwenden können. Dies kann besonders nützlich sein, wenn Sie Datumsangaben aus Textfeldern oder anderen Quellen extrahieren und als tatsächliche Datumswerte verarbeiten möchten.

Hier ist ein einfaches Beispiel, wie Sie die `DateValue`-Funktion in VBA verwenden können:

Sub BeispielDateValue()
    Dim datumString As String
    Dim datumWert As Date
    
    ' Datum als String
    datumString = "12/31/2023" ' amerikanisches Datumsformat MM/TT/JJJJ

    ' Umwandlung des Strings in ein Datum
    datumWert = DateValue(datumString)
    
    ' Ausgabe des Datumswerts im Direktfenster
    Debug.Print datumWert
End Sub

Wichtige Hinweise zur Nutzung der `DateValue`-Funktion:

Datumsformat: Die `DateValue`-Funktion erwartet, dass der übergebene Datumsausdruck im korrekten Datumsformat für die Regionaleinstellungen des Systems vorliegt. Im englischen Sprachraum ist das Format typischerweise „MM/TT/JJJJ“ oder „TT-MM-JJJJ“, während es in Deutschland oft „TT.MM.JJJJ“ ist.
Fehlervermeidung: Wenn der String, der an `DateValue` übergeben wird, kein gültiges Datum im erwarteten Format darstellt, wird ein Laufzeitfehler ausgelöst. Es ist daher ratsam, Fehlerbehandlungsroutinen zu implementieren, um dies abzufangen und entsprechende Maßnahmen zu ergreifen.
Zeitangaben: `DateValue` ignoriert jegliche Zeitteile in der Zeichenkette. Falls die Zeichenkette eine Uhrzeit enthält, wird diese abgeschnitten und nur das Datum wird konvertiert.

Hier ist ein Beispiel mit Fehlerbehandlung:

Sub SicheresDateValueBeispiel()
    Dim datumString As String
    Dim datumWert As Date
    
    bericht String
    datumString = "31-12-2023"

    ' Fehlerbehandlung aktivieren
    On Error GoTo Fehlerbehandlung

    ' Umwandlung des Strings in ein Datum
    datumWert = DateValue(datumString)
    
    ' Ausgabe des Datumswerts im Direktfenster
    Debug.Print datumWert

    Exit Sub

Fehlerbehandlung:
    MsgBox "Ungültiges Datum: " & datumString
End Sub

In diesem Beispiel wird eine einfache Fehlerbehandlung hinzugefügt, die eine Nachricht anzeigt, wenn die Datumskonvertierung fehlschlägt.

facebooklinkedin