Datum splitsen in kolommen

[pvag]

Hoi forumleden,
Ik weet helemaal niet of mijn vraag daadwerkelijk kan worden uitgevoerd binnen Excel, maar niet geschoten is mis.
Ik voer in kolom A een datum in bv: 26-12-1967
Nu zou ik willen dat ik d.m.v. een knop een VBA script kan activeren die de datum helemaal uitsplitst in opeenvolgende kolommen zoals ik in het onderstaande weergeef.
De datum 26-12-1966
Kolom B = 2
Kolom C = 6
Kolom D = 1
Kolom E = 2
Kolom F = 1
Kolom G = 9
Kolom H = 6
Kolom I = 7

Bij voorbaat dank

 

[edmoor]

Zonder knop. Gewoon een datum in kolom A invullen:
Bekijk bijlage PVAG_SplitDate.xlsm

 

[AlexCEL]

Voor de gein ook nog twee formule-opties. Met in A1 de datum:

=DEEL(TEKST($A1;"ddmmjjjj");KOLOM(A1:H1);1)
=DEEL(TEKST($A1;"ddmmjjjj");KOLOM(A1);1)

De eerste is alleen voor Excel 365 en vult automatisch aan, de tweede moet je handmatig 8x doortrekken naar rechts en werkt in eerdere Excelversies.

 

[pvag]

Hoi,
heel hartelijk dank voor uw hulp. Een fijne dag.

 

[snb]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column & Target.Count = "11" Then Target.Offset(, 1).Resize(, 8) = Split(Format(Format(Target, "ddmmyyyy"), "@ @ @ @ @ @ @ @"))
End Sub