Macro tekst naar kolommen

[Vissia]

Hallo,

Ik probeer via een macro, tekst naar kolommen uit te voeren. Hiervoor gebruik ik de volgende code:

Range("S4:S8").Select
Selection.TextToColumns Destination:=Range("S4"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
TrailingMinusNumbers:=True

Het betreft een kolom met datums in de opmaak bv: 12-08-09
De bedoeling is dat de dag, de maand en het jaar verdeeld worden over 3 kolommen
De celopmaak is "Datum 14-03-01".
Bij het uitvoeren van de macro is er niets veranderd.

Wat doe ik fout?

 

[snb]

1. Je hebt nagelaten je code tusssen code-tags (#) te zetten.
2. welke waarde staat er in de cel (dat is iets anders dan de tekst die getoond wordt op basis van de opmaakkenmeerken van de cel.
3. Je gebruikt teveel code.