• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Tekst naar kolom in macro uitvoeren

Status
Niet open voor verdere reacties.

pepejere

Gebruiker
Lid geworden
27 jun 2007
Berichten
9
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?
 
pepejere,

De meeste macromakers stellen een stuk code op prijs, zodat ze kunnen zien waar het fout gaat.
 
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
 

Bijlagen

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?
 
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.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan