macro excel

[pallieter1975]

In bijgevoegde excel sheet tabblad 3D-2 staat in kolom D de datumnotering met daaronder het uur.
Bestaat er een macro zodat het uur in kolom E komt te staan naast de datum, dus inhoud van cel D2 naar E1 en dit voor de volledige kolom D
zodat ik niet altijd copy en paste hoef te gebruiken.

groetjes

 

[spaarie]

In een module plaatsen

Sub Spaarie()
    With Sheets("3d-2")
        For Each d In .Range("D1:D" & .Range("D" & Rows.Count).End(xlUp).Row)
           If Not IsDate(d) And d <> "" Then d.Cut d.Offset(-1, 1)
        Next
    End With
End Sub

 

[pallieter1975]

Hartelijk bedankt sparrie, macro werkt prima.:thumb:

 

[spaarie]

Top, wil je de vraag nog als opgelost zetten? B.v.d!