VBA Datun DD-MM-YYYY

[Kirana2014]

Beste,

Graag jullie hulp in Excel macro, waarom als de macro's actief de datum in kolom K
veranderen van dd-mm-YYYY naar mm-dd-yyyy bijvoorbeeld van 09-02-2021 naar 02-09-2021

als de dag >12 niet veranderd bv 13-02-2021


Graag jullie hulp

Sub WYN()
    Dim r As Range
    Dim a, ms
            
    With CreateObject("Scripting.Dictionary")
        For Each r In Range("A2", Cells(Rows.Count, 1).End(xlUp))
            ms = r.Offset(, 4).Value
            If .Exists(ms) Then
                a = .Item(ms)
                a(1, 12) = a(1, 12) + r.Offset(, 11)
                .Item(ms) = a
            Else
                a = r.Resize(, 13).Value
                .Item(ms) = a
            End If
        Next
        a = Application.Transpose(Application.Transpose(.items))
        Cells(Rows.Count, 1).End(xlUp)(3, 1).Resize(UBound(a), 13) = a
        [a2].CurrentRegion.Offset(1).Delete xlUp
        [a2].CurrentRegion.Columns("j").NumberFormat = "hh:mm:ss"
        [a2].CurrentRegion.Columns("K").NumberFormat = "dd-mm-yyyy"
        
    End With
End Sub

misschien hebben jullie beter macro?

 

[HSV]

Zo zo, heb je er een vervolgvraag van gemaakt?

Wordt zo de kop in gesmoord door een moderator.