datum notatie na script

[moensk]

na uitvoeren van script zet hij datum notatie "dd-mm-jjjj u:mm" om naar "mm-dd-jjjj u:mm"
in voorbeeld zie kolom AB in tab MAX en kolom H in tab MAX-ETA
ik heb al diverse zaken geprobeerd doch krijg datum/tijd notatie niet goed naar "dd-mm-jjjj u:mm" zoals in orginele tab.
moet dit in script gebeuren ?

 

[AccessGuru]

Probeer 'm zo eens:

Sub Kris()
Dim ar, arl, j As Long, t As Long, sr As Long, c00 As String
    Rows("4:500").Select
    Selection.Delete Shift:=xlUp
    Range("C14").Select
    ar = Sheets("MAX").ListObjects(1).DataBodyRange
    sr = 4
    
    With Sheets("MAX-ETA")
        .Range("A" & sr & ":M200").ClearContents
        For j = 1 To UBound(ar)
            If ar(j, 12) = .Range("C1").Value Then
                ar(j, 8) = CDbl(ar(j, 8))
                ar(j, 28) = CDbl(ar(j, 28))
                c00 = c00 & j & "|"
                t = t + 1
            End If
        Next j
        .Cells(sr, 1).Resize(t, 22) = Application.Transpose(Application.Index(ar, Split(c00, "|"), _
            Application.Transpose(Array(21, 25, 3, 14, 15, 26, 1, 28, 5, 8, 9, 10, 11, 30, 31, 20, 19, 29, 16, 17, 18, 23))))
            With .Cells(sr - 1, 1).CurrentRegion
                .Sort .Cells(1, 4), , .Cells(1, 15), , , , , xlYes
                For j = .Rows.Count To 3 Step -1
                    If .Cells(j, 4) <> .Cells(j - 1, 4) Then .Cells(j, 4).EntireRow.Insert
                Next j
            End With
    End With
End Sub

 

[moensk]

thanks werk goed

 

[cow18]

om problemen met valuta-, datum- en andere opmaken te vermijden

  ar = Sheets("MAX").ListObjects(1).DataBodyRange.[COLOR="#FF0000"]Value[SIZE=4]2[/SIZE][/COLOR]