tekstwaarden (die op getal lijken) overzetten met value

[Jeroen123456]

Ik wil in stuk code copy en plak vermijden om code eenvoudiger en sneller te maken

Ik heb in excel bestand a een statistiekcode staan bijvoorbeeld 4801.9910
Met copy en plak speciaal waarde komt de code over als 4801.9910

met onderstaande code zie ik dat de waarde in VBA wordt opgepakt als "4801.9910"
echter in excelbestand b wordt met value de waarde (vertaald) weggezet als 4801,991 (als getal dus)

Iemand een idee hoe dit op te lossen?

Dim statistiekcode As String

Windows("HS Codes.xlsx").Activate
statistiekcode = Range("K2").Value
Windows(bestandsnaaminleestlijst).Activate
Range(P2).Value = statistiekcode

 

[Cobbe]

Wil je die code nu als getal of als tekst?
Als het tekst mag/moet zijn haal dan de .Value weg.

Dim statistiekcode As String

Windows(bestandsnaaminleestlijst).Range(P2).Value = Windows("HS Codes.xlsx").Range("K2").Value

Als getal zal moeilijk zijn want dit is afhankelijk van uw instellingen . of , .

 

[Jeroen123456]

Beste Cobbe,

het is een tekst waarde (met opbouw 1234.5678) en doordat het op een getal lijkt word het vertaald. dit is niet de bedoeling.
Het moet gewoon als tekst worden doorgegeven.

Ik heb je code gebruikt maar ik krijg fout 438 tijdens uitvoering. Deze eigenschap of methode wordt niet ondersteund door dit object.

 

[Cobbe]

Haal dan eens in de door u gepostte code 2 X de .Value weg.

 

[Jeroen123456]

Helaas de waarde 4801.1200 komt door als 4801,12

Maar niet getreurd .. ik heb nu in de doel sheet de hele kolom als tekst aangemerkt en dan komt de waarde door als '4801.1200
Lukt het niet linksom dan doen we het rechtsom.

Bedankt voor je hulp.

Deze code loopt alleen nog vast als de op te pakkken waarde niet bestaat (#waarde).
Is dit te ondervangen?

 

[Cobbe]

Zit die code in een lus?
Dan kun je dat opvangen door een On Error Resume Next of Goto

Maar daarvoor moet je de hele code kennen.

 

[Jeroen123456]

Code zit in een lus FOR i= 1 to x NEXT
Ik heb on error resume next in de lus geplaatst en volgens mij werkt dat goed.

Top!

Dank voor je hulp:thumb: