So konvertieren sie eine zeichenfolge in ein datum in vba (mit beispielen)

Sie können die CDate- Funktion in VBA verwenden, um eine Textzeichenfolge in ein Datum umzuwandeln.

Hier sind zwei gängige Möglichkeiten, diese Funktion in der Praxis zu nutzen:

Methode 1: Konvertieren Sie eine Zeichenfolge im Standardformat (MM/TT/JJJJ) in ein Datum.

 Sub ConvertStringToDate()

    Dim i As Integer

    For i = 2 To 8
        Range(" B " & i) = CDate(Range(" A " & i))
    Next i
    
End Sub

Dieses spezielle Makro konvertiert jede Zeichenfolge im Bereich A2:A8 in ein Datum mit dem Standarddatumsformat MM/TT/JJJJ.

Beispielsweise wird eine Textzeichenfolge vom 15.04.2023 in das Datum 15.04.2023 konvertiert.

Methode 2: Konvertieren Sie eine Zeichenfolge mithilfe eines benutzerdefinierten Formats in ein Datum

 Sub ConvertStringToDate()

    Dim i As Integer

    For i = 2 To 8
        Range(" B " & i) = Format(CDate(Range(" A " & i)), " MM.DD.YYYY ")
    Next i
    
End Sub

Dieses spezielle Makro konvertiert jede Zeichenfolge im Bereich A2:A8 in ein Datum im Format MM.TT.JJJJ.

Beispielsweise wird eine Textzeichenfolge vom 15.04.2023 in das Datum 15.04.2023 konvertiert.

Die folgenden Beispiele zeigen, wie jede Methode in der Praxis mit der folgenden Zeichenfolgenspalte in Excel verwendet wird:

Beispiel 1: Konvertieren Sie eine Zeichenfolge mithilfe des Standardformats in ein Datum

Wir können das folgende Makro verwenden, um jede Zeichenfolge in Spalte A in ein Datum im Standardformat MM/TT/JJJJ umzuwandeln:

 Sub ConvertStringToDate()

    Dim i As Integer

    For i = 2 To 8
        Range(" B " & i) = CDate(Range(" A " & i))
    Next i
    
End Sub

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

Beachten Sie, dass Spalte B jede Zeichenfolge in Spalte A in ein Datum mit dem Standarddatumsformat MM/TT/JJJJ konvertiert.

Beispiel 2: Konvertieren Sie eine Zeichenfolge mithilfe eines benutzerdefinierten Formats in ein Datum

Wir können das folgende Makro verwenden, um jede Zeichenfolge in Spalte A in ein Datum mit dem benutzerdefinierten Format MM.TT.JJJJ umzuwandeln:

 Sub ConvertStringToDate()

    Dim i As Integer

    For i = 2 To 8
        Range(" B " & i) = Format(CDate(Range(" A " & i)), " MM.DD.YYYY ")
    Next i
    
End Sub

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

Beachten Sie, dass Spalte B jede Zeichenfolge in Spalte A in ein Datum mit einem benutzerdefinierten MM.TT.JJJJ-Format konvertiert.

Fühlen Sie sich frei, die VBA- Formatfunktion zu verwenden, um Datumsangaben im Format Ihrer Wahl anzuzeigen.

Hinweis : Die vollständige Dokumentation für die VBA- CDate- 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 konvertieren Sie einen String in VBA in einen Int-Wert
So konvertieren Sie eine Zeichenfolge in VBA in eine lange Zeichenfolge
So konvertieren Sie einen String in VBA in einen Double-String