tekst naar getallen converteren

[bert]

Hallo NG,

Ik heb een sheet met daarin getallen die als tekst gezien worden.

Ik kan ergens in een cel een 1 te typen, die cel vervolgens
kopiëren Vervolgens Plakken Speciaal en vermenigvuldigen.

Dit werkt prima op het blad, maar niet in een macro. Heeft iemand een
oplossing?

Alvast bedankt, Bert

[Sarah]

Bert,

Hieronder een simpel voorbeeldje dat ik uitgeprobeerd heb en dat werkt prima
in een macro.

De kolom A is bij mij als tekst opgemaakt, kolom B als cijfers, kolom C
bevat het resultaat:

Sub test()

Range("C1").Value = Range("A1").Value * Range("B1").Value

End Sub

Wel wat hardcoded, maar weet niet wat jouw intentie exact is, hopelijk kun
je hiermee verder, bvb indien het een hele blad automatisch zou moeten
doorlopen kun je met een for next werken, en range schrijven als range("C" &
iCounter) waar iCounter een teller is die je na de bewerking wordt in de for
next loop.

Groetjes,
Sarah

"bert" schreef:

[bert]

Dag sarah,

Bedankt voor je antwoord.
Helaas was ik niet in staat eerder te reageren.

Het betreft hier een blad dat uit een externe database wordt ingelezen. Het
zou dus handig zijn als voor het hele blad (CurrentRegion) alle waarden
vermenigvuldigd konden worden met 1 (wat dus wel ! werkt zonder macro). Dus
zonder verdere formules in het blad.

Misschien heb je nog een suggestie?

Groeten, Bert

"Sarah" <Sa...@discussions.microsoft.com> schreef in bericht
news:4A9F6730-B8FA-4F26...@microsoft.com...

[emil]

bert,
sarah stelde al voor een for next loop te gebruiken om het hele blad te
doorlopen.

dat kan met:

Sub WaardeNaarWaarde()
Dim C As Range
For Each C In ActiveSheet.UsedRange
C.Value = C.Value
Next
End Sub

let op alle formules etc worden omgezet in een waarde!
wil eerst een selectie maken voor het beperken van de omzetting gebruik dan:

For Each C In Selection
in plaats van
For Each C In ActiveSheet.UsedRange

komt dit een beetje in de buurt?
--
groet, emil
<getest met office2000>

"bert" <n...@nix.nl> schreef in bericht
news:OXWEOjaS...@TK2MSFTNGP14.phx.gbl...

[bert]

dag Emil,

Bedankt voor je antwoord dit was precies wat ik zocht :)

Sub WaardeNaarWaarde()
Dim C As Range

For Each C In Selection

C.Value = C.Value
Next
End Sub

Bert

"emil" <j.seidenbecher(overbodig)@hccnet.nl> schreef in bericht
news:%23waDY6a...@TK2MSFTNGP12.phx.gbl...

>>> kopiėren Vervolgens Plakken Speciaal en vermenigvuldigen.