Tijdsnotatie verwijderen uit datetime dmv VBA

[yeshead23]

Hallo,

Hoe kan ik een tijdsnotatie uit een kolom krijgen? De lengte van de kolom is variabel.

13-8-2010 10:52:41

Dit d.m.v. een VBA code

Alvast bedankt

 

[Warme bakkertje]

Sub tst1()
    sq = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        For i = 1 To UBound(sq)
            sq(i, 1) = Split(sq(i, 1), " ")(LBound(Split(sq(i, 1), " ")))
        Next
    Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).NumberFormat = "dd/mm/yyyy"
    [A1].Resize(UBound(sq)) = sq
End Sub

Sub tst2()
For Each cl In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    sq = Split(cl, " ")
    cl.Offset(, 1) = sq(LBound(sq))
Next
End Sub

Test1 vervangt alle cellen in kolom A door de datumwaarde
Test2 plaatst de datumwaarden in kolom B

 

[yeshead23]

Hallo bakkertje,

Super!! Bedankt voor de oplossing. Werkt prima!