Excel Datumstexte in Datum konvertieren

$csv = @'  
"Date";"Common-Name"  
"Dec 23 12:00:06 2029 GMT";"domain.tld"  
"Sat, 08 Apr 2023 11:35:03 +0200";"sub.domain.tld"  
"Tue Jan 06 09:57:23 CET 2026";"sub2.domain.tld"  
'@ | ConvertFrom-CSV -Delimiter ";"  

$csv = foreach($line in $csv){
    $d = [datetime]::MinValue
    if ([datetime]::TryParseExact($line.Date,[string[]]('MMM dd HH:mm:ss yyyy GMT','ddd, dd MMM yyyy HH:mm:ss zzz','ddd MMM dd HH:mm:ss CET yyyy'),[cultureinfo]'en','None',[ref]$d)){$line.Date = $d}  
    $line
}
$csv | sort Date

Sub KonvertiereDatumswerte()
    Dim cell As Range, regex As Object, months As Variant, arrMap As Variant, arrMonthMap As Variant, _
    matches As Object, m As Integer, i As Integer, intMonth As Integer
    Set regex = CreateObject("vbscript.regexp"): regex.IgnoreCase = True  
    months = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")  
    regex.Pattern = "(([a-z]{3}) (\d{2}) (\d{2}:\d{2}:\d{2}) (\d{4}))|(([a-z]{3}), (\d{2}) ([a-z]{3}) (\d{4}) (\d{2}:\d{2}:\d{2}))|(([a-z]{3}) ([a-z]{3}) (\d{2}) (\d{2}:\d{2}:\d{2}) ([a-z]{3}) (\d{4}))"  
    arrMap = Array(Array(4, 2, 3), Array(9, 7, 10), Array(17, 14, 15))
    arrMonthMap = Array(1, 8, 13)
    
    With ActiveSheet
        For Each cell In .Range("A2:A" & .Cells(Rows.Count, "A").End(xlUp).Row)  
            Set matches = regex.Execute(cell.Value)
            If matches.Count > 0 Then
                For m = 0 To UBound(arrMap)
                    If matches(0).submatches(arrMonthMap(m)) <> "" Then  
                        For i = 0 To UBound(months)
                            If months(i) = matches(0).submatches(arrMonthMap(m)) Then
                                intMonth = i + 1
                                Exit For
                            End If
                        Next
                        cell.Value = CDate(matches(0).submatches(arrMap(m)(0)) & "-" & intMonth & "-" & matches(0).submatches(arrMap(m)(1)) & " " & matches(0).submatches(arrMap(m)(2)))  
                        Exit For
                    End If
                Next
            End If
        Next
        .Range("A:B").Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlYes  
    End With
End Sub