Tekst naar kolommen probleem

[netraam88]

tekst naar kolommen werkt niet.

Kollom T word data gecopyeert naar kollom U.
Vanaf kollom U moet deze tekst naar kolommen.

Dit is een datum dus deze moet worden uitgesplitst.
Alleen als ik dit handmatig doe werkt het als ik dit via VBA werkt het niet.
Wie o wie kan me helpen.

 

[HSV]

Probeer deze code eens.

Sub hsv()
Dim sq, i As Long
  sq = Range("T1").CurrentRegion.Columns(1)
  For i = 1 To UBound(sq)
   With Range("A1")
     .Value = 1
       Cells(i, 21).Resize(, 3) = Split(sq(i, 1), "-")
        .Copy
          Cells(i, 21).Resize(, 3).PasteSpecial xlPasteValues, xlMultiply
        .ClearContents
    End With
   Next
 End Sub

 

[netraam88]

Probeer deze code eens.

Sub hsv()
Dim sq, i As Long
  sq = Range("T1").CurrentRegion.Columns(1)
  For i = 1 To UBound(sq)
   With Range("A1")
     .Value = 1
       Cells(i, 21).Resize(, 3) = Split(sq(i, 1), "-")
        .Copy
          Cells(i, 21).Resize(, 3).PasteSpecial xlPasteValues, xlMultiply
        .ClearContents
    End With
   Next
 End Sub

Er zit een fout in volgens mij..
De macro stopt bij :

Cells(i, 21).Resize(, 3) = Split(sq(i, 1), "-")

het geeft dan een melding dat de typen niet overeen komen.

en voor dit stukje ---With Range("A1")---- heb ik het aangepast naar With Range("B1") deze rij is voledig gevult.

 

[HSV]

Voeg dan je bestandje er eens bij, zodat de helpers niet moeten nabootsen of gokken.