Een tekenreeks naar een datum converteren in vba (met voorbeelden)

U kunt de CDate- functie in VBA gebruiken om een tekstreeks naar een datum te converteren.

Hier zijn twee veelvoorkomende manieren om deze functie in de praktijk te gebruiken:

Methode 1: Tekenreeks naar datum converteren met standaardnotatie (MM/DD/JJJJ)

 Sub ConvertStringToDate()

    Dim i As Integer

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

Deze specifieke macro converteert elke tekenreeks in het bereik A2:A8 naar een datum met het standaard datumformaat MM/DD/JJJJ.

Een tekstreeks van 15-04-2023 wordt bijvoorbeeld geconverteerd naar de datum 15-04-2023.

Methode 2: Tekenreeks naar datum converteren met behulp van een aangepast formaat

 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

Deze specifieke macro converteert elke tekenreeks in het bereik A2:A8 naar een datum in het formaat MM.DD.JJJJ.

Een tekstreeks van 15-04-2023 wordt bijvoorbeeld geconverteerd naar de datum 15-04-2023.

De volgende voorbeelden laten zien hoe u elke methode in de praktijk kunt gebruiken met de volgende kolom met tekenreeksen in Excel:

Voorbeeld 1: Tekenreeks naar datum converteren met standaardnotatie

We kunnen de volgende macro gebruiken om elke tekenreeks in kolom A te converteren naar een datum in de standaardnotatie MM/DD/JJJ:

 Sub ConvertStringToDate()

    Dim i As Integer

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

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Houd er rekening mee dat kolom B elke tekenreeks in kolom A converteert naar een datum met de standaard datumnotatie MM/DD/JJJJ.

Voorbeeld 2: Tekenreeks naar datum converteren met behulp van een aangepast formaat

We kunnen de volgende macro gebruiken om elke tekenreeks in kolom A te converteren naar een datum met de aangepaste notatie MM.DD.JJJ:

 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

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Houd er rekening mee dat kolom B elke tekenreeks in kolom A converteert naar een datum met een aangepast MM.DD.JJJJ-formaat.

U kunt gerust de functie VBA- formaat gebruiken om datums in het formaat van uw keuze weer te geven.

Opmerking : u kunt hier de volledige documentatie voor de VBA CDate- functie vinden.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

Hoe tekenreeks naar int in VBA te converteren
Hoe een string naar lang te converteren in VBA
Hoe een string naar dubbel te converteren in VBA