Tekst naar kolom in macro uitvoeren

[pepejere]

Hoe kan ik vanuit een excel bestand een samengestelde tekst bv"23-06-2007" omzetten naar waarden zodat deze als datum door excel gelezen kunnen worden.
In cel G3 staat: '23-06 en in cel A2 staat: 2007

De tekst is samengesteld uit =G3&-A2 en geeft als resultaat "23-06-2007"
Handmatig gaat dit goed, als ik de macro bouw.
Als ik de macro automatisch laat draaien gaat het fout.
Komt het als gewone tekst te staan.

Wie weet hoe in teks naar kolom om kan zetten via een macro?

 

[robdgr]

pepejere,

De meeste macromakers stellen een stuk code op prijs, zodat ze kunnen zien waar het fout gaat.

 

[pepejere]

Sorrie vergeten.

Alsnog de code 's:

Range("A27").Select
ActiveCell.FormulaR1C1 = "=LEFT(R[-25]C[9],9)"
Range("A28").Select
ActiveCell.FormulaR1C1 = "=RIGHT(R[-1]C,5)&-R[-26]C"
Range("A28").Select
Selection.Copy
Range("A26").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("A26"), DataType:=xlFixedWidth, _
OtherChar:="'", FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True

 

[robdgr]

pepejere,

Waarom maak je niet gewoon de formule in een cel, trek die door naar beneden, kopieer de inhoud en plak speciaal - waarden. Dan heb je toch bereikt wat je wilt en heb je geen macro nodig?

 

[pepejere]

re: tekst 2 kolom

pepejere,

Waarom maak je niet gewoon de formule in een cel, trek die door naar beneden, kopieer de inhoud en plak speciaal - waarden. Dan heb je toch bereikt wat je wilt en heb je geen macro nodig?

Ik moet deze gegevens plakken in een ander bestand welke als database funktioneert.

Het lijkt er trouwens op dat ik het al opgelost heb.
Ik heb het teken ^ vervangen voor ' .
Tot nu toe werk het nog.

Bedankt in ieder geval.