VBA - Kopie (split) Teil der Zelle in einer Spalte in eine neue Spalte

Question

Ich habe folgendes Datum/Uhrzeit in Column K

Mon Nov 14 20:15:14 EST 2016 

ich die ersten 3 Teile 'Mon Nov 14' kopieren möchten, und fügen Sie column R für alle Zeilen in einer Arbeitsmappe mit einem variablen Dateinamen.

Column K bleibt unverändert und es sind immer 10 Zeichen. Das Datum für weniger als 10 enthält eine führende 0.

Vielen Dank für jeden, der helfen kann!

Answer 1

Sub Transfer() 
Dim LastRow As Long 
Dim y As Integer 
    Dim x As Integer 

With ActiveSheet 
    LastRow = .Cells(.Rows.Count, "k").End(xlUp).Row 
End With 
y = 1 

For x = 1 To LastRow 
    range("k" & y).Select 
    ActiveCell.Offset(0, 7) = Left(range("k" & y), 10) 
    y = y + 1 
Next 
End Sub