een kolom over 2 kolommen verdelen

[nonono]

Ik heb data in een kolom, welke ik over 2 kolommen wil verdelen-
Daartoe wil ik de eerste 6 karakters van de rij met "cut/copy" naar een andere kolom verplaatsen.

Met een makro voor een enkele rij lukt dit:

Sub xls6()
    Range("B4").Select
    ActiveCell.FormulaR1C1 = " aa"
    Range("A4").Select
    ActiveSheet.Paste
End Sub

Zodra ik de range uitbreid in het voorbeeld naar Range("B4:B8") resp. Range("A4:A8"), dan gaat het mis op de regel ActiveCell.FormulaR1C1……

Sub xls6()
    Range("B4:B8").Select
    ActiveCell.FormulaR1C1 = "   "
    Range("A4:A8").Select
    ActiveSheet.Paste
End Sub

Wat is hiervoor het juiste commando?

Alvast bedankt

 

[WHER]

Probeer deze eens:

 

[nonono]

Een klein probleempje met Macro/Security. Niveau verlaagt naar Medium, gesaved en opnieuw gestart.
Vervolgens Enable macros en de macro uitgevoerd.

Werkt prima!!! :d :d

Bedankt :thumb: